如何使用VB判斷SQL中某欄位是否存在

sql="select * from tablename"
rs.Open sql, conn, adOpenStatic, adLockOptimistic
for i=0 to rs.Fields.Count-1
     If rs(i).Name="你想要尋找的欄位名稱" Then
     MsgBox "欄位有找到!"
     End If
Next i