cbm666大哥劳烦一下

Public datadisk As String, schdata As String
Private Sub Form_Load()
 datadisk = "c:\bawang\bwdata" 'Trim(App.Path)
 If Right(datadisk, 1) <> "\" Then datadisk = datadisk & "\"
 Data1.DatabaseName = datadisk & "bwscale.mdb"
 Data1.RecordSource = "bwcust"
 Data1.Refresh
 Data1.ReadOnly = False
End Sub

Private Sub Comsave_Click() '保存按钮
 schdata =trim(Text1.Text)
 Data1.Recordset.MoveFirst '此行一定要加
 Data1.Recordset.FindFirst "custid =" & Chr(39) & schdata & Chr(39)
 If Not Data1.Recordset.NoMatch Then
 MsgBox "客户号已存在"
 Else
 '不存在可以开始添加
 Data1.Recordset.AddNew
 Data1.Recordset.Fields(0) = Trim(Text1.Text)
 Data1.Recordset.Fields(1) = Trim(Text2.Text)
 Data1.Recordset.Fields(2) = Trim(Text3.Text)
 Data1.Recordset.Update
 End If
End Sub