SLQ запрос на visual basic 2008 - VB

Формулировка задачи:

Всем привет. Пытаюсь кодить на сабже. Возникла некая трабла. запросом вывожу содержимое csv файла:

n1;n2;n3;n4 фигня в томате;вася;50310;ABCDEF01.GIF фигня под майонезом;петя;30310;ABCDEF02.GIF фигня без ничего;грыша;q30310;ABCDEF03.GIF

и т.д. кусок кода:

Path = "c:\"
            FileName = "1.csv"
 
            cnn = CreateObject("ADODB.Connection")
            With cnn
                .ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" _
                & Path & ";Extensions=asc,csv,tab,txt;"
                .Open()
 
            End With
 
            SQLstr = "SELECT * FROM [" & FileName & "] where (n1 like '%" & Str(EnterBox1.Text) & _
             "%' or n3 like '%" & Str(EnterBox1.Text) & "%')"
            rs = cnn.Execute(SQLstr)
            i = 0
            Do While rs.EOF = False
                A(0, i) = Trim(rs("n1").value & "")
                A(1, i) = Trim(rs("n2").value & "")
                A(2, i) = Trim(rs("n3").value)
                A(3, i) = Trim(rs("n4").value & "")
                ListBox1.Items.Add(A(0, i))
                rs.MoveNext()
                i = i + 1
                ReDim Preserve A(3, i)
            Loop

Когда доходит до строчки:

фигня без ничего;грыша;q30310;ABCDEF03.GIF

, в рекордсет вываливается значение поля

n3=Null

, и соответственно выдает ошибку: "Приведение типа "|DBNull" к типу "String" является недопустимым." Объясните как быть, почему запрос не воспринимает поле n3 как текст, а пытается сделать его числовым? Причем, если проставить перед всеми значениями поля n3 букву или символ (не число), то все будет ок. Можно конечно ставить в файле символ перед полем, затем программно его отрезать, а нет ли более цивилизованного решения?

Решение задачи: «SLQ запрос на visual basic 2008»

textual
                            Листинг программы 
                        

                               Open File For Binary As #1 
      CF = Input(FileLen(File), 1)   
   Close #1 
'потом разбил на строки:
Dim ArrayLines() as  String 
ArrayLines = Split(CF, vbNewLine) 
'и каждую строку на элементы:
Dim Word() as  String 
Word = Split(ArrayLines(0), " ")
                        