运行时出现这样错误：未处理的“System.Data.OleDb.OleDbException”类型的异常出现在 system.data.dll 中。
代码:
Dim selectCmd As String = _
"Select id_no as 学号, name as 姓名, chi as 语文, eng as 英语, math as 数学 From SCORE"
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim connstr As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Data.mdb"
Dim conn As New OleDbConnection(connstr)
Dim myAdapter As New OleDbDataAdapter(selectCmd, conn)
Dim myDataSet As New DataSet
conn.Open() '错误的位置
myAdapter.Fill(myDataSet, "Score")
DataGrid1.DataSource = myDataSet.Tables("Score")

End Sub

Public DataSet11 As DataSet
'定义一个数据集对象
Public OleDbDataAdapter1 As SqlDataAdapter
'定义一个数据适配器对象
Public con As SqlConnection = New _
SqlConnection("data source=.;initial catalog=STL;user id=sa;password=") '定义一个数据连接对象，并初始化

Public Function GetDataFromDB(ByVal sqlstr As String) As DataSet
DataSet11 = New DataSet
DataSet11.Clear()
'实例化一个数据集对象
Try
con.Open()
'打开数据库连接
OleDbDataAdapter1 = New SqlDataAdapter(sqlstr, Con)
'将数据库的数据映射到数据适配器
OleDbDataAdapter1.Fill(DataSet11)
'填充数据集的数据
con.Close()
'关闭数据连接，这一点很重要
Catch
MsgBox("错误号：" & Err.Number & "错误描述：" & Err.Description)
con.Close()
End Try
Return DataSet11
DataSet11 = Nothing
End Function
应该没问题