Can anyone tell me why I am getting a data type mismatch error on the following code?

Sub DoItemDelete(objSource As Object, objArgs As DataListCommandEventArgs)

   Dim strConnect As String = ConfigurationSettings.AppSettings("DsnWroxBooksJet ")

   Dim strDelete As String
   strDelete = "DELETE * FROM Authorizations WHERE AuthID='" _
          & MyDataList.DataKeys(objArgs.Item.ItemIndex) & "'"

   Dim objConnect As New OleDbConnection(strConnect)

   objConnect.Open()

   Dim objCommand As New OleDbCommand(strDelete, objConnect)
   objCommand.ExecuteNonQuery()

   objCommand = nothing
   objConnect.Close()
   objConnect = nothing





   'create a suitable SQL statement and execute it
   'Dim strSQL As String
   'strSQL = "DELETE * FROM Authorizations WHERE AuthID='" _
    ' & MyDataList.DataKeys(objArgs.Item.ItemIndex) & "'"
   'ExecuteSQLStatement(strSQL)

   'set EditItemIndex property of grid to -1 to switch out of Edit mode
   MyDataList.EditItemIndex = -1
   BindDataGrid() 'bind the data and display it

End Sub

What line produces the error?

It is the objCommand.ExecuteNonQuery() line. thanks!!

   It is probably a mismatch in your Delete statement between AuthID and the DataKeys value. Check both of them and make sure the are the same, if not, convert one of them. Also, it would be good to use Try...Catch statements around your DB code. This will also help you view the error in a more detailed way.

Jim