Dim dbs As Database Dim cmd As New ADODB.Command Dim strsql As String strsql = "INSERT INTO PACRLog[PONumber] VALUES '" & PONumbertxt.Text & "'" With cmd .ActiveConnection = CurrentProject.Connection .CommandText = strsql cmd.Execute End With
strsql = "INSERT INTO PACRLog(PONumber) VALUES ('" & PONumbertxt.Text & "')"
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)