VB.NET连接Access数据库

Private Function getAccessConnection() As OleDbConnection

          Dim dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; 网管u家u.bitscn@com

    Data Source=|DataDirectory|\Resources\mag.mdb;Persist Security Info=true"
          Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString) 网管bitscn_com

            Try
              dbConnection.Open()
            Catch Ex As Exception
              ’MsgBox(Err.Description)
            End Try 网管bitscn_com

          Return dbConnection

网管下载dl.bitscn.com

      End Function 网管下载dl.bitscn.com

          Dim sqlStr As String = "select * from Table"
          Dim DataAdapter As New OleDbDataAdapter
          Dim dataSet As New DataSet
          Dim DataGridView As New DataGridView
          Dim dbConnection As OleDbConnection = getAccessConnection() 中国网管论坛bbs.bitsCN.com

            If dbConnection.State.ToString = "Closed" Then
              MsgBox(Chr(13) & " access 数据库连接失败 " & Chr(13), , "警告")
              Exit Sub
            End If

            DataAdapter.SelectCommand = New OleDbCommand(sqlStr,dbConnection) 网管u家u.bitsCN.com

            Try
              DataAdapter.Fill(dataSet,"Table")
              DataGridView.DataSource = dataSet.Tables("Table").DefaultView
            Catch Ex As Exception
              MsgBox(Err.Description)

      Finally
              dataSet.Dispose
              DataAdapter.Dispose
              dbConnection.Close
              dbConnection.Dispose
            End Try

      End Sub 网管论坛bbs_bitsCN_com