Dim connString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
  "Source=Nwind.mdb"
        Dim conn As New OleDb.OleDbConnection(connString)
 
        Dim cmd As New OleDb.OleDbCommand("Insert Into Shippers (CompanyName," & _
          "Phone) Values(?, ?)", conn)
 
        Dim prm As OleDb.OleDbParameter = cmd.Parameters.Add("p1", _
          OleDb.OleDbType.VarChar)
        prm.Value = ShipperName.Text
 
        prm = cmd.Parameters.Add("p2", OleDb.OleDbType.VarChar)
        prm.Value = ShipperPhone.Text
 
        Try
            conn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As OleDb.OleDbException
            MsgBox("Insert failed: " & ex.Message)
        Finally
            conn.Close()
        End Try