Dim sqlStr As String
Dim sqlcnn As New ADODB.Connection
Dim sqlrst As New ADODB.Recordset
sqlStr = ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=d:\adou.mdb")
sqlcnn.Open(sqlStr)
If sqlcnn.State Then
MsgBox("成功")
sqlStr = "SELECT sname FROM student WHERE sno=1"
sqlrst = sqlcnn.Execute(sqlStr)
TextBox1.Text = sqlrst.Fields(1)
Else
MsgBox("连接有问题，请检查网络")
End If


数据库显示连接成功，可是sqlrst = sqlcnn.Execute(sqlStr)这句话总是提示错误说“标准表达式中数据类型不匹配”应该怎么改的啊？

你想要实现什么功能？问题可能出现在你的SQL语句上！

哦，此问题已经得到解决，是我自己笔下误，写错了，正确的语句应该是
TextBox1.Text = sqlrst.Fields(1).Value
谢谢你！

结贴！