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

用vb语句打开mapinfo的表并读取其中某一列的值
然后赋值给一个变量怎么做我写了一段代码
总是通不过请问怎么改正Dim mapinfo As Object
Dim s As StringPrivate 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
先谢了