VB6 Code to connect to access database
Dim connection1 As ADODB.Connection
Set connection1 = CreateObject("ADODB.Connection")
'connection string
constring = "provider=microsoft.jet.oledb.4.0;data source=C:\Users\Desktop\vb pgms\Database1.mdb"
connection1.Open constring
MsgBox connection1.State
No comments:
Post a Comment