Vb.Net and MS-Access database Conection | TechbyMati

Vb.Net and MS-Access database Conection

Open connection to password protected Access database:
"Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\App1\Your_Database_Name.mdb; Jet OLEDB:Database Password=Your_Password"
connStr = "Provider=Microsoft.Jet.OLEDB.4.0; " + 
           "Data Source=G:\\Backup\\Kashif\\xyzDB.mdb"; 
           qryStr = "select content,websiteID  from content"; 
           dbConn = new OleDbConnection(connStr);
Examples: 
    SQL:  "server=tonydev;database=northwind;uid=tony;pwd=hrmmm" 
             "server=tonydev;database=northwind;trusted_connection=yes" 
    OLE: "Provider=Microsoft.Jet.OLEDB.4.0; Data source=C:\tony.mdb"
    Public Function FetchData(ByVal FileName As String) As DataSet
        'Define the connectors
        Dim oConn As OleDbConnection
        Dim oComm As OleDbCommand
        Dim oData As OleDbDataAdapter
        Dim resultSet As New DataSet
        Dim oConnect, oQuery As String
        'Define connection string
        oConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName & ";User ID=Admin;Password="
        'Query String
        oQuery = "SELECT * FROM accessTest"
        'Instantiate the connectors
        oConn = New OleDbConnection(oConnect)
        oComm = New OleDbCommand(oQuery, oConn)
        oData = New OleDbDataAdapter(oQuery, oConn)
        Try
            'Open connection
            oConn.Open()
            'Fill dataset
            oData.Fill(resultSet, "accessTest")
            'Close connection
            oConn.Close()
        Catch ex As OleDb.OleDbException
        Catch ex As Exception
            'Show error message and exit
            MsgBox(ex.Message & vbCrLf & ex.StackTrace)
        Finally
            'Dispose the connector objects
            If Not (oConn Is Nothing) Then oConn.Dispose()
            oConn = Nothing
            If Not (oComm Is Nothing) Then oComm.Dispose()
            oComm = Nothing
            If Not (oData Is Nothing) Then oData.Dispose()
            oData = Nothing
        End Try
        'Return results
        Return resultSet
    End Function
OLE DB, OleDbConnection (.NET) 
• Standard security:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;User Id=admin;Password=;" 
• Workgroup (system database):
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:System Database=system.mdw;" 
• With password:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:Database Password=MyDbPassword;" 


cnHotel = New OleDbConnection
        Try
            With cnHotel
                If .State = ConnectionState.Open Then .Close()
                .ConnectionString = cnString
                .Open()
            End With
        Catch ex As OleDbException
            MsgBox(ex.ToString)
        End Try