Article ID: 148888
Article Last Modified on 1/9/2003
[ODBC]
DisableAsync=1
DBEngine.IniPath = "c:\winnt35\vb.ini"
Option Explicit
Private Sub Form_Load()
Dim db As Database
Dim rs As Recordset
'Change the following two lines to connect to
' your ODBC database.
Set db = OpenDatabase("", False, False, "odbc;")
Set rs = db.OpenRecordset("select * from bugs")
rs.MoveLast
Debug.Print "The End" 'To show you the end of the program.
End Sub
Additional query words: 4.00 vb4win vb416 buglist4.00
Keywords: kbbug KB148888