Database Command Not working

[UF_Supra]

Ok so I've changed my plan of attack on this...

My question now is... is there a way to step through an entire column of information without knowing what the last field's value is going to be.

For example: repeat until Field value = null... or something like that?

Here's my new code (using two List boxes so I can quickly double check that operations/functions work correctly)...

Dim strConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\jcarney\My Documents\Visual Studio Projects\WindowsApplication2\WindowsApplication2\Relearn.mdb"
    Dim cnnDatabase As New OleDb.OleDbConnection(strConnectionString)
    Dim cmdDatabase As New OleDb.OleDbCommand
    Dim tableName As String
    Sub frmThinker_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            cnnDatabase.Open()
            tableName = "CustomerID"
 
            Dim strSQL = "SELECT * FROM " & tableName
            Dim adpDatabase As New OleDb.OleDbDataAdapter(strSQL, cnnDatabase)
 
            Dim dstRelearn As New DataSet
            adpDatabase.Fill(dstRelearn, "Parts")
 
            Dim rowParts As DataRow
            Dim litParts As ListViewItem
            For Each rowParts In dstRelearn.Tables("parts").Rows
                litParts = lvwOne.Items.Add(rowParts("CustomerID"))
                litParts.SubItems.Add(rowParts("Name"))
                litParts.SubItems.Add(rowParts("Address"))
                litParts.SubItems.Add(rowParts("City"))
                litParts.SubItems.Add(rowParts("State"))
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cnnDatabase.Close()
        End Try
    End Sub
 
    Sub btnButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnButton.Click
        Dim strNames As String
        Dim aryNames() As Char
        tableName = "CustomerID"
 
        Try
            '***Convert Values
            cnnDatabase.Open()
            cmdDatabase.Connection = cnnDatabase
            cmdDatabase.CommandText = "SELECT * FROM CustomerID WHERE CustomerID = 1001;"
 
            Dim rdrMyReader As OleDb.OleDbDataReader = cmdDatabase.ExecuteReader
            rdrMyReader.Read()
            strNames = rdrMyReader("Name")
            aryNames = strNames.ToCharArray()
 
            Dim intArrayCounter As Integer = 0
            Dim intCurrent As Short = 0
            Dim intNew As Short = 0
 
            Do Until intArrayCounter = 10
                If aryNames(intArrayCounter) = "M" Then
                    aryNames(intArrayCounter) = "u"
               End If
                intArrayCounter += 1
            Loop
            
            cnnDatabase.Close()
 
 
            '***Update Database
            cnnDatabase.Open()
            Dim myCommand As New OleDb.OleDbCommand
            myCommand.Connection = cnnDatabase
            myCommand.CommandText = "UPDATE CustomerID SET [Name]= '" & aryNames & "' WHERE CustomerID = 1001;"
            myCommand.ExecuteNonQuery()
            cnnDatabase.Close()
 
 
 
            '***Fill Second Grid
            cnnDatabase.Open()
            Dim strSQL = "SELECT * FROM " & tableName
            Dim adpDatabase As New OleDb.OleDbDataAdapter(strSQL, cnnDatabase)
 
 
            Dim dstRelearn As New DataSet
            adpDatabase.Fill(dstRelearn, "Parts")
 
            Dim rowParts As DataRow
            Dim litParts As ListViewItem
            For Each rowParts In dstRelearn.Tables("parts").Rows
                litParts = lvwTwo.Items.Add(rowParts("CustomerID"))
                litParts.SubItems.Add(rowParts("Name"))
                litParts.SubItems.Add(rowParts("Address"))
                litParts.SubItems.Add(rowParts("City"))
                litParts.SubItems.Add(rowParts("State"))
            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cnnDatabase.Close()
        End Try
 
    End Sub