请问怎么用vb语句打开mapinfo的表读取其中某一列的值

用vb语句打开mapinfo的表并读取其中某一列的值
然后赋值给一个变量怎么做我写了一段代码
总是通不过请问怎么改正

Dim mapinfo As Object
Dim s As String

Private Sub Form_Load()

Set mapinfo = CreateObject("mapinfo.application")
mapinfo.Do "set application window " & Form1.hWnd
mapinfo.Do "set next Document parent " & Form1.hWnd & "style 1 "
mapinfo.Do "Open Table" & """" & "C:\My Documents\科源\data\繁昌\变电所\变电所" & """" & "Interactive "
mapinfo.Do "Browse * From 变电所"
mapinfo.Do "Fetch First From 变电所"
mapinfo.Do "s=变电所.col(6) "
Label1.Caption = s

End Sub
先谢了