🚀 go-pugleaf

Okay, 

Once you dig deep enough to figure out how to open a database and execute an sql queery (easy stuff for most programmers) getting data from Access really isn't that hard.  In case anyone is interested here is the sample script I cobbled together to figure out how to get data and place it in ID. 

Being a newbie, however, I seem to have been tripped up by what should be a very stupid problem.  There's something BASIC I don't understand here (couldn't resist the tired pun, sorry).  Anyway, in the code below I'm having a problem because  

1. The database has some field values as Null and I can't assign Null to a TextField.  So I test for null right? 

2. VB always evaluates the statement myRecordSet.Fields(j).Value <> Null as false.  What is wrong with my comparison? 

Ben 

Dim DB As Connection
 Dim myRecordSet As Recordset
 Dim j As Integer
 Dim Doc As InDesign.Document
 Dim myPage As InDesign.Page
 Dim ID As InDesign.Application
 Dim Item As InDesign.TextFrame
 

Set ID = CreateObject("InDesign.Application.2.0")
 Set Doc = ID.Documents.Add
 Set myPage = Doc.Pages.Item(1)
 Set DB = New Connection
 DB.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51; Data Source=C:\Program Files\Microsoft Visual Studio\VB98\BIBLIO.MDB;"
 Set myRecordSet = New Recordset
 myRecordSet.Open "select Name,[Company Name],Address,City,State,Zip,Telephone from Publishers", DB, adOpenForwardOnly, adLockReadOnly
 

Debug.Print myRecordSet.RecordCount
 Do While Not myRecordSet.EOF
 

    If myRecordSet.BOF Then
         myRecordSet.MoveNext
     End If
 

    For j = 0 To 6
         Set Item = myPage.TextFrames.Add         If myRecordSet.Fields(j).Value <> Null Then
             Item.TextContents = CStr(myRecordSet.Fields(j).Value)
         End If
         Item.GeometricBounds = Array(40 + j * 10, 40, 50 + j * 10, 170)
     Next j
     Set myPage = Doc.Pages.Add
 

Loop