hi. can you please help me out with this program im writing.
its a simple log in system written in vb6 .
ms access is my database.
i have a problem with connecting vb to access.
heres the code:
/codes for module
Public db As ADODB.Connection
Public rec As ADODB.Recordset
Sub connect()
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider = Microsoft.jet.OLEDB.4.0;data source = letmein.mdb;persist security info = false"
End Sub
/codes for the form
Private Sub Form_Load()
connect
sql = "select * from user"
Set rec = New Recordset
rec.Open sql, db, adOpenDynamic, adLockBatchOptimistic
End Sub