关于VB 的一个程序问题 非常急 谢谢大家了

Question

我要在access数据库中添加数据，可是一添加就报错 
【实时错误“94”：无效使用Null。】 
调试出来的程序： 
Private Sub grdMain_RowColChange(LastRow As Variant, ByVal LastCol As Integer) 
Dim strID As String 
If rsMain.RecordCount = 0 Then Exit Sub 
With rsMain 
strID = Trim(.Fields!id)←←{就是指向这句} 
txtID.Text = strID 
txtObject.Text = Trim(.Fields!object) 
End With 
Set rsTerm = New ADODB.Recordset 
strSql = "select * from term where id='" & Trim(strID) & "'" 
rsTerm.Open strSql, Con, adOpenStatic, adLockOptimistic 
Set grdTerm.DataSource = rsTerm 
End Sub 
结束调试后出来对话框“无法插入空行，行必须至少有一个列值集

Answer 1

改
strID = Trim(.Fields!id & "")