VB6未找到方法或数据成员#VB6

Private Sub CmdSave_Click()
'此处从数据库表中读取气象信息
'建立数据库连接

Dim connDB As New ADODB.Connection
Dim recSet As New ADODB.Recordset
Dim connStr As String

'打开数据库

connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Fync\Data\FySjk.mdb;Persist Security Info=False"
connDB.Open connStr

'获取查询结果
recSet.Open "Select top 1 * from Proce Order by Time", connDB, adOpenDynamic, adLockOptimistic

'添加一条空白记录
recSet.AddNew

'给当前记录赋值
recSet.Fields("Time") = CDate(DIPDate.Vaule & " " & Format(DIPTime.Value, "HH:MM:SS"))

recSet.Fields("SoilID") = Me.CmbSoilID.Text **CmbSoilID ** 出错
recSet.Fields("Action") = IIf(Me.OptOpen.Value = True, "开阀", "关阀")

'更新数据库
recSet.Update

'关闭数据库
recSet.Close

'关闭数据库连接
connDB.Close

Call DataEnvironment1.rsCommandProce.Update
DataGrid1.Refresh

End Sub