Private Sub cmdSubmitChanges_Click()
On Error Resume Next
rdso.SubmitChanges
If Err.Number <> 0 Then
rdso.CancelUpdate
MsgBox "无法改变数据!", vbInformation
End If
End Sub
Private Sub Form_Load()
Set rdso = New RDS.DataControl
End Sub
Private Sub rdso_onreadystatechange()
If rdso.ReadyState = adcReadyStateComplete Then
Set Adodc1.Recordset = rdso.Recordset
cmdOpenDB.Enabled = True
End If
End Sub