Hi, I am trying Rollback and commit in my VB (VBA with ms access) Code but getting error-
CODE-
Dim tra As OleDb.OleDbTransaction = Nothing
Try
'inserting data into table
Dim myCmd As New OleDb.OleDbCommand


cn.open()
tra = cn.BeginTransaction()
myCmd.Connection = cn
myCmd.CommandText = "INSERT INTO query 1"
myCmd.Transaction = tra
myCmd.ExecuteNonQuery()

myCmd.CommandText = "INSERT INTO query 2" myCmd.ExecuteNonQuery()



tra.Commit()

Catch ex As Exception
MessageBox.Show(ex.Message, "Error-" & Transaction_name, MessageBoxButtons.OK, MessageBoxIcon.Error)


tra.Rollback()
End Try

ERROR-




PLEASE HELP !!!!!!!!