A ver,despues de un vistazo rapido me doy cuenta de que:
Cita: Dim comando As New OleDbDataAdapter("DELETE * FROM DATAUR WHERE SIM='1'", Global.conexion)
Puede estar mal,seria:
Dim comando As New OleDbDataAdapter("DELETE * FROM DATAUR WHERE (SIM=1)", Global.conexion)
El resto debe de funcionar sin problemas,si no es asi dime cual es el error y te lo soluciono,saludossss
