Ошибка Invalid use of null - VB

Private Sub Form_Load()
Set con = New ADODB.Connection
Set rst = New ADODB.Recordset
con.CursorLocation = adUseClient
con.Open 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=HallDB.mdb;Persist Security Info=False'
    rst.ActiveConnection = con
    rst.CursorLocation = adUseClient
    rst.CursorType = adOpenDynamic
    rst.LockType = adLockOptimistic
    rst.Open 'select * from capdq'
    Label3.Caption = rst.RecordCount
    txtDocNum.Text = rst.Fields!documentno
    txtFacilCod.Text = rst.Fields!facilcod
End Sub