在向大家详细介绍VB.NET Access数据库连接之前，首先让大家了解下VB.NET的简介，然后全面介绍VB.NET Access数据库连接。

Visual Basic.NET 是从 Visual Basic 语言演变而来的，是一种为高效地生成类型安全和面向对象的应用程序而设计的语言。Visual Basic 允许开发人员开发面向 Windows、Web 和移动设备的程序。与所有面向 Microsoft .NET Framework 的语言一样，使用 Visual Basic 编写的程序都具有安全性和语言互操作性方面的优点。这一代 Visual Basic 延续了为您提供一种简单快捷的方法来创建基于 .NET Framework 的应用程序的传统。

VB.NET的简介

VB.NET是微软最新平台技术，是.netframeworkSDK的一种语言。VB.NET和VC#.NET在功能上没有区别。编译以后生成的可执行文件被称为Assembly，即程序集。VB.net的版本号是VB7.0，它的运行是建立在CLR(CommonLanguageRuntime)和MSIL(MicrosoftIntermediateLanguage)虚拟器上的。其实，它的机制和Java差不多。

VB.NET Access数据库连接

采用OleDbConnection对象

1. Private Function getAccessConnection() As OleDbConnection  
2. Dim dbConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;  
3. Data Source=|DataDirectory|\Resources\mag.mdb;Persist Security Info=true"  
4. Dim dbConnection As OleDbConnection = New OleDbConnection(dbConnectionString)  
5. Try  
6. dbConnection.Open()  
7. Catch Ex As Exception  
8. ’MsgBox(Err.Description)  
9. End Try  
10. Return dbConnection  
11. End Function 

1. private Sub fillDataGridView()  
2.  
3. Dim sqlStr As String = "select * from Table" 
4. Dim DataAdapter As New OleDbDataAdapter  
5. Dim dataSet As New DataSet  
6. Dim DataGridView As New DataGridView  
7. Dim dbConnection As OleDbConnection = getAccessConnection()  
8.  
9. If dbConnection.State.ToString = "Closed" Then  
10. MsgBox(Chr(13) & " access 数据库连接失败 " & Chr(13), , "警告")  
11. Exit Sub  
12. End If  
13.  
14. DataAdapter.SelectCommand = New OleDbCommand(sqlStr,dbConnection)  
15.  
16. Try  
17. DataAdapter.Fill(dataSet,"Table")  
18. DataGridView.DataSource = dataSet.Tables("Table").DefaultView  
19. Catch Ex As Exception  
20. MsgBox(Err.Description)  
21.  
22. Finally  
23. dataSet.Dispose  
24. DataAdapter.Dispose  
25. dbConnection.Close  
26. dbConnection.Dispose  
27. End Try  
28.  
29. End Sub 

VB.NET Access数据库文件，可以通过 My Project -> 资源 -> 添加资源 -> 添加现有文件 这样的方式来添加调试状态下，每次运行项目，Resources下面的数据库将会覆盖Debug下的数据库