Back to .Net Form

Private Sub cmdExec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExec.Click
    rs.Sql = txtSql.Text
    If rs.Execute = 0 Then
      MsgBox(rs.Records & " affected by " & txtSql.Text)
    Else
      MsgBox(rs.Error_Message)
    End If
  End Sub