'Execute Non Query Public Function ExecNonQuery(ByVal strSQL As String) Dim conn As OleDbConnection conn = New OleDbConnection Try With conn .ConnectionString = cnString .Open() End With Dim cmd As OleDbCommand = New OleDbCommand(strSQL, conn) cmd.ExecuteNonQuery() Return True Catch ex As OleDbException Return False Finally End Try End Function
ExecNonQuery(“INSERT INTO Table1 (Field1, Field2, Field2) VALUES (‘Value1’, ‘Value2’, ‘Value3’);)