Imports System Imports System.IO Imports System.Data Imports System.Data.SqlClient Public Class Form1 Dim SerialCallLogDatabaseLocation As String = "B:\SomePlace\SomeWhere\CallLog.mdb" 'Dim SerialCallLogDatabaseLocation As String = "c:\Inventory1.mdb" 'test data Dim SerialCallLogTableName As String = "tblInventory" Dim SerialCallLogDatabaseName As String = "CallLog" 'added 1 Dim Serialinc As Integer Dim SerialMaxRows As Integer Dim Serialcon As New OleDb.OleDbConnection Dim Serialds As New DataSet Dim Serialda As OleDb.OleDbDataAdapter Dim Serialsql As String Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click 'Entry Dim Serialcb As New OleDb.OleDbCommandBuilder(Serialda) Dim SerialdsNewRow As DataRow SerialdsNewRow = Serialds.Tables(SerialCallLogTableName).NewRow SerialdsNewRow.Item("ID") = txtBarcode.Text SerialdsNewRow.Item("InvoiceNumber") = txtInvNum.Text SerialdsNewRow.Item("OrderNumber") = txtOrdNum.Text SerialdsNewRow.Item("InvoiceDate") = txtInvDate.Text SerialdsNewRow.Item("ItemDescription") = txtItem.Text SerialdsNewRow.Item("ItemCost") = txtCost.Text SerialdsNewRow.Item("DateUsed") = txtDateUsed.Text SerialdsNewRow.Item("OfficeUsed") = txtOffice.Text SerialdsNewRow.Item("SerialNumber") = txtCompSer.Text SerialdsNewRow.Item("UsedDefinition") = txtHowUsed.Text SerialdsNewRow.Item("UPCIfThere") = txtUPC.Text SerialdsNewRow.Item("SerialNumberIfThere") = txtSerNum.Text Serialds.Tables(SerialCallLogDatabaseName).Rows.Add(SerialdsNewRow) Serialda.Update(Serialds, SerialCallLogDatabaseName) 'Reset txtBarcode.Clear() txtInvNum.Clear() txtOrdNum.Clear() txtInvDate.Clear() txtItem.Clear() txtCost.Clear() txtDateUsed.Clear() txtOffice.Clear() txtCompSer.Clear() txtHowUsed.Clear() txtUPC.Clear() txtSerNum.Clear() txtBarcode.Focus() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Connect Serialcon.ConnectionString = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source = " & SerialCallLogDatabaseLocation Serialcon.Open() Serialsql = "SELECT * FROM " & SerialCallLogTableName Serialda = New OleDb.OleDbDataAdapter(Serialsql, Serialcon) Serialda.Fill(Serialds, SerialCallLogDatabaseName) Serialcon.Close() SerialMaxRows = Serialds.Tables(SerialCallLogDatabaseName).Rows.Count Serialinc = -1 End Sub End Class
This error happens at the "SerialdsNewRow = Serialds.Tables(SerialCallLogTableName).NewRow"
Any suggestions?