vb.net连接数据库 Access

 

        Conn = New OleDb.OleDbConnection
        Dim Command As New OleDb.OleDbCommand
        Dim strConnectionString As String

        strConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;"

        ' "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=   Database1.mdb     根据office的版本不同  Database1的文件后缀名也不同

        'source=Access数据库文件位置。定义连接字符串

        strConnectionString = strConnectionString & "Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=true" 
        Try
            With Conn
                .ConnectionString = strConnectionString
                .Open()
            End With

            Return True
        Catch ex As OleDbException

            MessageBox.Show(ex.Message, Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1)
            Return False
        End Try