Base De Datos

|Imports MySql.Data.MySqlClient
Imports System.Data

SELECT Y UPDATE
Dim MiConexion = New MySqlConnection
MiConexion.ConnectionString = "server=localhost;" & "user id=root;" &"password=admin;" & "database=VisualPrestamosPlus"
Dim MiAdaptador As New MySqlDataAdapter
MiAdaptador.SelectCommand = New MySqlCommand("Select Sum(valor) From Pagos WhereCodRuta='" & mdiPrincipal.lblRuta.Text & "' And CodPrestamoR=" & dgvPtmo.CurrentCell.Value, MiConexion)
MiConexion.Open()
Dim MiDataSet = New DataSet()MiAdaptador.Fill(MiDataSet)
If MiDataSet.tables(0).Rows.Count <> 0 Then
lblPagos.Text = MiDataSet.tables(0).rows(0)(0)
lblDeuda.Text = Val(lblTPrestamos.Text) -MiDataSet.tables(0).rows(0)(0)
End If
MiConexion.Close()

Dim cn As MySqlConnection
cn = New MySqlConnection("server=localhost;" & "user id=root;" & "password=admin;"& "database=VisualPrestamosPlus")
cn.Open()
Dim cm As MySqlCommand
cm = New MySqlCommand("UPDATE Prestamos SET saldo=@saldo, pagos=@pagos Where CodRuta='" &mdiPrincipal.lblRuta.Text & "' And CodPrestamoR=" & dgvPtmo.CurrentCell.Value)
cm.Parameters.AddWithValue("@saldo", lblDeuda.Text)
cm.Parameters.AddWithValue("@pagos", lblPagos.Text)cm.Connection = cn
cm.ExecuteNonQuery()
cn.Close()


BORRAR
Dim cn As MySqlConnection
cn = New MySqlConnection("server=localhost;" & "user id=root;"& "password=admin;" & "database=VisualPrestamosPlus")
cn.Open()
Dim cm As MySqlCommand
cm = New MySqlCommand("Delete From Prestamos Where CodPrestamoR='" & numPtmo & "' And CodRuta='"& mdiPrincipal.lblRuta.Text & "'")
cm.Connection = cn
cm.ExecuteNonQuery()
cn.Close()

Recorrer La Base de datos
con2.ConnectionString = "server=localhost;" & "user...