Dim conn2 As OleDbConnection Dim cmd2 As OleDbCommand Dim SQLStr2 As String conn2 = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= '" & TextBox3.Text & "' ;Jet OLEDB:Database Password=cscfo13poppsi; ") SQLStr2 = "SELECT * FROM pop IN '" & TextBox3.Text & "'" conn2.Open() cmd2 = New OleDbCommand(SQLStr2, conn2) cmd2.ExecuteNonQuery() Dim conn As OleDbConnection Dim cmd As OleDbCommand Dim SQLStr1 As String conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=psipop.accdb;Jet OLEDB:Database Password=cscfo13poppsi;") SQLStr1 = "INSERT INTO pop 'psipop'" conn.Open() cmd = New OleDbCommand(SQLStr1, conn) cmd.ExecuteNonQuery()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)