vb编程数据库出错了?
在用vb编程的时候出错了,用的dbgrid,我太笨了,请高手指教,帮我查明原因,怎么修改a = "e0012"
Screen.MousePointer = 11
Data1.DatabaseName = "C:\Documents and Settings\Administrator\My Documents\db2.mdb"
If Trim(a) <> "" Then
Data1.RecordSource = "select 故障原因 from sheet1 where 故障代码='a'" (有错吗?)
Data1.Refresh (程序就在这里短了)
Else
End If
Screen.MousePointer = 1
Data1.Visible = False
Text1.Text = Data1.Recordset.Fields("故障原因")