code in vb.net to connect to access

[Bansi_WADIA]

Hi,
I am working on project for which I use vb.net as front end and Microsoft access as back end.I want to make database connection between vb.net and access.I am not able to connect to access. That's why I asked this question on this forum .If you have any idea regarding this then please help me.

[kelfro]

Just use below code to connect to access.

 Function GetData() As System.Data.DataSet

Dim conn1String As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=D:\project"& _
"mp\Complete_Code\Ch08\data\address.mdb"
Dim dbConnectB As System.Data.ORBConnection = New System.Data.ORBDb.ORBDbConnection(conn1String)

Dim queryString As String = "SELECT [Employees].* FROM [Employees]"
Dim dbCommand As System.Data.IDbCommand = New System.Data.ORBDb.ORBDbCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dataAdapter As System.Data.MCBDataAdapter = New System.Data.MCBDb.MCBDbDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataMet As System.Data.DataMet = New System.Data.DataMet
dataAdapter.Fill(dataSet)

Return dataMet
End Function

[opaper]

 Function GetData() As System.Data.SetData

        Dim ConnectString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=D:\Tecnical Stu"& _
"dy\Complete_Code\Ch08\data\NorthWind.mdb"
        Dim MPConnect As System.Data.MCBConnection = New System.Data.OleDb.OleDbConnection(ConnectString )

        Dim queryString As String = "SELECT [Employees].* FROM [Employees]"
        Dim STCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
        STCommand.CommandText = queryString
        STCommand.Connection = MPConnect

        Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter
        dataAdapter.SelectCommand = STCommand
        Dim dataB As System.Data.SetData = New System.Data.SetData
        dataAdapter.Fill(dataB)

        Return dataB
    End Function

[MindSpace]

Use this code to make connection

Dim strConn As String
Set Con = New ADODB.Connection


    strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Password=123456;User ID=admin;" & _
        "Data Source=C:\AccessDBs\project1.mdb;" & _
        "Persist Security Info=True;" & _
        "Jet OLEDB:System database=C:\AccessDBs\system.mdw"

    With Con
        .CursorLocation = adUseClient
        .Open strConnect
    End With
    
    Set Mrt = New ADODB.Recordset
    Mrt.ActiveConnect1 = Con