如何读取字段名

现在想读取表“W1"中的字段名，应该如何做？我用下面的代码，始终提示错误，请大大们指教，谢谢

Private Sub Form_Load()

Dim conn As adodb.Connection
Dim rst As adodb.Recordset
Dim sq1 As String

Dim lingi As Long

Set conn = New adodb.Connection
With conn
    .Provider = "microsoft.jet.oledb.4.0"
    .ConnectionString = "data source=d:\进销存统计\db1.mdb"
    .Open
End With

'下面开始读取字段名

rst.Open "select * from w1 where 0=1", conn, adOpenKeyset, adLockOptimistic

错误提示是变量未设置。。。。