请问VB如何从ACCESS数据库里选择数据并写到EXCEL里?

执行完语句后，在EXCEL表格里显示的是 SELECt 语句，这是哪里错了？谢谢！
Dim strSQL As String
strSQL = "SELECT WGYDX.SZ FROM WGYDX WHERe (WGYDX.BZW = 5)" & ""
Cn.Execute strSQL
xlSheet.Cells(5, 3) = strSQL

你写的就是将变量字符写到EXECL里啊。。。

Dim strSQL As String ‘定义一个strSQL变量，类型为字符
strSQL = "SELECt WGYDX.SZ FROM WGYDX WHERe (WGYDX.BZW = 5)" & ""
Cn.Execute strSQL ‘为变量设置内容
xlSheet.Cells(5, 3) = strSQL ’将变量放到EXECL指定位置上

else

xxxx.recordset.findfirst("姓名字段="&txtname.text)

if not xxxx.recordset.nomatch then
dtstudent.recordset.update

call beginbrow

else

msgbox "名字重复"

end if
end if
end sub

xxxx 需要自己定义一下