Well I got it to work.......but this code is UGLY MAN just plain UGLY!!
Surely there is a more elegant way??
Dim fFile1 As FileStream = File.Open(Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\p1.txt", _
FileMode.Open, FileAccess.Read)
Dim bfBuffer As UTF8Encoding = New UTF8Encoding(True)
Dim arrBytes(9) As Byte
strSQL = "SELECT * FROM tblPersonelID1 WHERE tblPersonelID1.pi = 'NOTHING'"
odaPILists = New System.Data.OleDb.OleDbDataAdapter(strSQL, objConn)
odaPILists.Fill(dtPILists)
ocbPILists = New System.Data.OleDb.OleDbCommandBuilder(odaPILists)
Try
Do While fFile1.Read(arrBytes, 0, arrBytes.Length) > 0
drPILists = dtPILists.NewRow()
drPILists.BeginEdit()
drPILists.Item("PI") = bfBuffer.GetString(arrBytes)
drPILists.EndEdit()
dtPILists.Rows.Add(drPILists)
odaPILists.InsertCommand = ocbPILists.GetInsertCommand
odaPILists.Update(dtPILists)
dtPILists.AcceptChanges()
Loop
Catch objException As Exception
ShowError("Location: Class ImportData" & ControlChars.CrLf & ControlChars.CrLf & "Procedure: " & _
"cmdGenerate(ByVal strSuppliername As String)" & ControlChars.CrLf & ControlChars.CrLf & "Error Text: " & _
objException.Message)
End Try