here is the connection string...

variables:

Dim ds As New DataSet()
Dim intCurrentIndex As Integer = 0
Dim da As New OleDbDataAdapter()
Dim conn As New OleDbConnection()
Dim intNum As Integer

connection:

conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = UserData.mdb;User Id=admin;Password=;"