Apri connessione e inserisci un record

Public Sub InsertRow(myConnectionString As String)
' If the connection string is null, use a default.

If myConnectionString = "" Then
myConnectionString = "Provider=SQLOLEDB;Data Source=localhost;Initial Catalog=Northwind;Integrated Security=SSPI;"

' ("Provider=SQLOLEDB;Data Source=(local)\istanzapaolopugl;Initial Catalog=Northwind;Integrated Security=SSPI;")


End If
Dim myConnection As New OleDbConnection(myConnectionString)
Dim myInsertQuery As String = "INSERT INTO Customers (CustomerID, CompanyName) Values('NWIND', 'Northwind Traders')"
Dim myCommand As New OleDbCommand(myInsertQuery)
myCommand.Connection = myConnection
myConnection.Open()
myCommand.ExecuteNonQuery()
myCommand.Connection.Close()
End Sub