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