Gracias por la ayuda Thumper, sigue tirando error.
El error cuando le doy a guardar me salta aquí
Cita: 'INSERT, UPDATE y DELETE
Public Sub Ejecuta(ByVal Sql As String)
ClassConecta.Conecta()
Cm = New OleDbCommand(Sql, ClassConecta.Cs)
Cm.ExecuteNonQuery()
Cm.Dispose()
ClassConecta.Desconecta()
End Sub
Si le pongo el SELECT como me dijo Thumper me salta aquí.
Cita: Public Sub Ejecuta(ByVal Sql As String)
ClassConecta.Conecta()
Cm = New OleDbCommand(Sql, ClassConecta.Cs)
Cm.ExecuteNonQuery()
Cm.Dispose()
ClassConecta.Desconecta()
End Sub
Y yo pienso que está en el botón guardar el problema, aquí se los dejo.
Cita: 'Inserta en la BBDD
BD.Ejecuta("INSERT INTO imei VALUES ('" & TbID.Text & "', '" & CbMarca.Text & "', '" & TbModelo.Text & "', '" & TbColor.Text & "', '" & TbSn.Text & "', '" & TbImei.Text & "', '" & TbOperador.Text & "')")
'Limpia campos después de guardar
ModFuncImei.LimpiaImei()
CbMarca.SelectedIndex = 0
BD.Rellena("SELECT MAX(Id) FROM imei", "IDF")
'Carga de nuevo el DGV con el nuevo imei
If BD.Dt.Tables("IDF").Rows.Count <> 0 Then
TbID.Text = (CStr(CInt(BD.Dt.Tables("IDF").Rows(0).Item(0)) + 1))
Else
TbID.Text = "1"
End If
Fila = -1
'Fin muestra del ID
'Carga DGV con imeis de la bbdd
BD.Dt.Tables("FR").Rows.Add(BD.Ds.Tables("FR").New Row())
BD.Rellena("SELECT * FROM imei ORDER BY Id DESC", "FR")
Saludos y gracias por la ayuda