Private Sub frmPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\DataBase\MyBase.mdb;"
Dim sqlStatement As String = "SELECT PRO_NOMBRE FROM PRO_PRODUCTOS"
Dim conn As New OleDbConnection(strConn)
DataAdapter.SelectCommand = New OleDbCommand(sqlStatement, conn)
Dim cmmdBuilder As New OleDbCommandBuilder(DataAdapter)
conn.Open()
Datos = New DataSet()
DataAdapter.Fill(Datos, "Productos")
Dim newRow As DataRow
newRow = Datos.Tables("Productos").NewRow
newRow("PRO_NOMBRE") = "Impresora"
Datos.Tables("Productos").Rows.Add(newRow)
DataAdapter.Update(Datos, "Productos")
conn.Close()
End Sub