how to connect the access database to visual basic 6.0

[raju selvam]

hi, i'm new in vb, so, please tell me how to connect access database in vb 6.0

[VijaySofist]

Hi raju selvam,

First you need to add a Reference named "Microsoft DAO 3.6 Object Library" to your VB6 Project

Then use the Following lines of Code

'Declaration Section
Dim db as Database
Dim rs as Recordset
 
'Form Load Event
Set db=OpenDatabase(<<Your MsAccess Filename with path in Double Quotes>>)
'Example
'-------
'Set db=OpenDatabase("d:\Vijay\Test.mdb")
Set rs= db.OpenRecordset(<<Your MsAccess Table Name in double quotes>>)
'Example
'-------
'Set rs= db.OpenRecordset("MyTable")
 
'To Read from table
 
If (rs.RecordCount > 0) Then
rs.MoveFirst
Do While rs.EOF=False
MsgBox (rs.Fields("FieldName").Value)
rs.MoveNext
Loop
End If

You Can download a Sample from the link given below
http://www.vb6.us/tutorials/using-da...-code-tutorial

All the Best
Regards
Vijay.R