这段数据插入代码哪里有问题?
nbxjx 2003-08-24 10:31:50 Private Sub Command3_Click()
Dim cn As New ADODB.Connection
cn.Open ConnectString
cn.BeginTrans
On Error GoTo inserterr
cn.Execute "insert into aa(a,b) values('hhh','205')"
cn.commitrans
Exit Sub
inserterr:
cn.RollbackTrans
MsgBox "error", vbInformation, "AAA"
End Sub