Question

vb用datagrid显示access数据库中的内容

就是想实现在text1输入学号 然后在access数据库中进行查询，所得信息在datagrid进行显示...每次都有错误 求大神看下代码 帮忙修改一下 还有就是如果想进行添加和删除怎么写代码？ 本人小白
Private Sub Command1_Click()
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
Set rs = New ADODB.Recordset
Call db.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\恋☆赎罪\Documents\学生成绩管理系统1.mdb;") '连接数据库
rs.Open "select *from sheet1 where 学号 ='" & Text1.Text & "'", db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
Text = Text1.Text
End Sub

另外定义的全局变量：
Dim db As Object
Dim rs As ADODB.Recordset
Dim Text As String

Private Sub Form_Load()
Set db = New ADODB.Connection
Call db.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\恋☆赎罪\Documents\学生成绩管理系统1.mdb;") '连接数据库
End Sub

错误提示 标准表达式中的数据类型不匹配。。。 我把’去掉了直接提示语法错误。。。 数据库中的表学号是数值型的

Answer 1

把这句rs.Open "select *from sheet1 where 学号 ='" & Text1.Text & "'", db, adOpenStatic, adLockOptimistic
改为下列语句试一下：
rs.Open "select * from sheet1 where 学号=" & Text1.Text , db, adOpenStatic, adLockOptimistic

追问

语法错误 表达式丢失。。。 在学号=‘

追答

学号=后面的单引号也去掉