关于在数据集内添加一条记录的小问题！！只是格式不懂，来拿分吧！！！

Question

Set cnt = New ADODB.Connection
  cnt.CursorLocation = adUseClient
  cnt.Open "provider=microsoft.jet.oledb.4.0;" & "data source=f:\a1.mdb;"
Set cust = New ADODB.Recordset
cust.Open "select * from 客户资料表 where 客户名='" & c & "'", cnt, adOpenDynamic, adLockOptimisticIf cust.RecordCount = 0 Then
If MsgBox("目前数据一定有问题，因为有些项目是空的，为了避免数据库出错，请先返回检查！", 32, "注意！") = 1 Then
cust.AddNew
cust! 客户名 = InputBox("请输入您要增加的用户名：")
cust! 联系方式 = InputBox("请输入您要增加用户的联系方式：")
cust.Update
我知道  下面的不行，该怎么写呀？？？？
cust.AddNew
cust! 客户名 = InputBox("请输入您要增加的用户名：")
cust! 联系方式 = InputBox("请输入您要增加用户的联系方式：")
cust.Update

Answer 1

您的错误是不是因为没写  end if ？