<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Access VB question</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1141" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=460063521-02052003><FONT face=Arial color=#0000ff size=2>Hi
Jarad:</FONT></SPAN></DIV>
<DIV><SPAN class=460063521-02052003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=460063521-02052003><FONT face=Arial color=#0000ff
size=2>Assuming you are using ADO-OLE and have your MS Recordset object Library
attached here is the code I would use:</FONT></SPAN></DIV>
<DIV><SPAN class=460063521-02052003></SPAN><SPAN class=460063521-02052003><FONT
face=Arial color=#0000ff size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=460063521-02052003><FONT face=Arial color=#0000ff size=2>Public
Sub GetConnected()<BR><SPAN class=460063521-02052003><FONT face=Arial
color=#0000ff size=2> Dim gconROD As
ADODB.Connection<BR> Dim gstrConnection As
String</FONT></SPAN></FONT></SPAN></DIV>
<DIV><SPAN class=460063521-02052003><FONT face=Arial color=#0000ff size=2><SPAN
class=460063521-02052003><FONT face=Arial color=#0000ff
size=2> Dim gsDBPFName As
String<BR></DIV></FONT></SPAN></FONT></SPAN>
<DIV><SPAN class=460063521-02052003><FONT face=Arial color=#0000ff
size=2> On Error GoTo Err_GetConnected</FONT></SPAN></DIV>
<DIV><SPAN class=460063521-02052003><FONT face=Arial color=#0000ff
size=2> </FONT></SPAN></DIV>
<DIV><SPAN class=460063521-02052003><FONT face=Arial color=#0000ff
size=2> gsDBPFName = <A
href="file://\\Myserver\MyDBDirectory\rod.mdb">\\Myserver\MyDBDirectory\rod.mdb</A></FONT></SPAN></DIV>
<DIV><SPAN class=460063521-02052003><FONT face=Arial color=#0000ff
size=2><BR> gstrConnection =
"Provider=Microsoft.Jet.OLEDB.4.0;" &
_<BR>
"Persist Security Info=False;" &
_<BR>
"Data Source=" &
gsDBPFName<BR>
<BR> Set gconROD = New ADODB.Connection<BR>
gconROD.Open gstrConnection<BR>
<BR>Exit_GetConnected:<BR> Exit Sub<BR>
<BR>Err_GetConnected:<BR> ShowErrMsg
("GetConnected")<BR> Resume
Exit_GetConnected<BR> <BR>End Sub</FONT></SPAN></DIV>
<DIV><SPAN class=460063521-02052003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=460063521-02052003><FONT face=Arial color=#0000ff size=2>This
is of course overly simplified but...</FONT></SPAN></DIV>
<DIV><SPAN class=460063521-02052003><FONT face=Arial color=#0000ff
size=2>HTH</FONT></SPAN></DIV>
<DIV><SPAN class=460063521-02052003><FONT face=Arial color=#0000ff
size=2>Jim</FONT></SPAN></DIV>
<BLOCKQUOTE>
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B>
accessd-bounces@databaseadvisors.com
[mailto:accessd-bounces@databaseadvisors.com]<B>On Behalf Of </B>Huffman,
Jarad B.<BR><B>Sent:</B> Friday, May 02, 2003 9:22 AM<BR><B>To:</B>
accessd@databaseadvisors.com<BR><B>Subject:</B> [AccessD] Access VB
question<BR><BR></FONT></DIV>
<P><FONT face=Arial size=2>Does anyone know how to programmatically open an
access database in VB, bypassing the startup options? </FONT></P>
<P><FONT face="Times New Roman">Jarad Huffman </FONT><BR><FONT
face="Times New Roman">Applications Support Analyst </FONT><BR><FONT
face="Times New Roman">Information Systems </FONT><BR><FONT
face="Times New Roman">McDonough District Hospital </FONT><BR><FONT
face="Times New Roman">Macomb, IL 61455 </FONT><BR><FONT
face="Times New Roman">(309) 833-4101</FONT> </P><BR></BLOCKQUOTE></BODY></HTML>