CMD.CommandText = "insert table1 values(……)" 
 CMD.ActiveConnection = Conn 
 CMD.Execute 
 If Conn.Errors.Count>0 Then 
     MsgBox "有错误!" 
 End If