Private Sub Form_Load()
Dim DBRain As New ADODB.Connection
Dim DBRainpath As String
DBRainpath = App.Path & "\mdb\rain.mdb"
DBRain.Provider = "Microsoft.Jet.OLEDB.4.0"
DBRain.Open DBRainpath
Dim MySQL As String
Dim MyRst As New ADODB.Recordset
Dim a As String
a = "过程持续时间"
MySQL = "Select 过程持续时间 from 最大过程雨量50"
MyRst.Open MySQL, DBRain, adOpenDynamic, adLockOptimistic
End Sub

把 MySQL改为MySQL = "Select a from 最大过程雨量50"
出现如图所示错误

把MySQL改为MySQL = "Select * from 最大过程雨量50"
能通过
请教那里出错

前面两种情况出现的错误一样
后面一种情况能通过