Hola,
Vamos a ver, porque o no lo veo o el problema es más sencillo.
Fijaos en el código del boton guardar.
Private Sub btnGuardar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGuardar.Click
Dim campo As DataRow = mDTable.Rows(mPosFila)
campo("Titulo") = edtTitulo.Text
Try
Me.mDA.Update(miDTable)
Me.MostrarRegActual()
Catch ex As Exception
MsgBox("¡¡Error!! al actualizar la base de datos" & vbCrLf & ex.Message)
End Try
End Class
Y Concretamente en la linea Me.mDA.Update(miDTable), esto le produce un error que muestra aquí "MsgBox("¡¡Error!! al actualizar la base de datos" & vbCrLf & ex.Message)"
No os dais cuenta que por ningún sitio excepto que no lo haya mostrado tiene establecidos "UpdateCommand", "InsertCommand", "DeleteCommand"
Fijaos en el constructor del formulario.
Private mDA As SqlDataAdapter
Private mCB As SqlCommandBuilder
Private mDTable As New DataTable
Private mPosFila As Integer = 0
Private Sub FrmParametros_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
mDA = New SqlDataAdapter("Select * From tbParametros", miConexion)
mCB = New SqlCommandBuilder(mDA)
mDA.Fill(mDTable)
Me.MostrarRegActual()
End Sub
Ese es el problema o estoy ciego :).
Saludos,
phurtado