<html><div style='background-color:'><DIV>
<P>I am converting an Access mdb to an Access Project and am new at it. How can I recode the following code to ADO?</P>
<DIV>
<DIV></DIV>
<DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=218363021-26022002>Public Function GetCurrentDB() as
DAO.Database</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=218363021-26022002> </SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=218363021-26022002>On Error Resume
Next</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=218363021-26022002> Static db as
DAO.Database</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=218363021-26022002> Dim strName as
String</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=218363021-26022002> strName =
db.Name</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=218363021-26022002> If Err.Num<> 0
Then</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=218363021-26022002> Set db =
CurrentDb()</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=218363021-26022002> End
If</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=218363021-26022002> Set GetCurrentDB =
db</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=218363021-26022002></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=218363021-26022002>End
Function</SPAN></FONT></DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN
class=218363021-26022002></SPAN></FONT> </DIV>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=218363021-26022002>Much
thanks.</DIV></SPAN></FONT></DIV></DIV></DIV></div><br clear=all><hr>Chat with
friends online, try MSN Messenger: <a href='http://go.msn.com/bql/hmtag1_etl_EN.asp'>Click
Here</a><br></html>
View Cart
