Data base conection 1

[NiteCrawlr]

I'm sorry.... I'm kinda new in VB.
I need to make a conection with a Access DB from a VB application.
I don't have the least idea on how to make this.

I'll be very thankfull for any kind of help

Thanks in advance

Frederico

 

[TheInsider]

Providing you are using the Jet engine... set a referrence to Jet DAO 3.51 or 3.6. Then use/modify the following code:

Dim db As Database, rs As Recordset

Set db = OpenDatabase("C:\ABC\DEF.mdb")
Set rs = db.OpenRecordset("SELECT * FROM tblClients")

If Not (rs.RecordCount = 0) Then
    rs.MoveFirst
    MsgBox rs![fldFirstName]
End If

rs.Close
Set db = Nothing

Rob Marriott
rob@career-connections.net