”' 定义SQL查询命令字符串
strsql = "select price from shandong"
' 执行strSQL所含的SQL命令
rs.Open strsql, cn“
如上，如何连接数据库的代码省略，现已执行SQL命令读取到了数据，下一步如何将数据写入Excel表格的某一单元格中（已在form窗体中创建OLE控件，且插入Excel表格）。
可对Ole控件关联对象的Excel表格的单元格的Value 属性赋值来写入VB已读到的数据。
Value 属性，返回或设置一个Variant型数，它指定该属性之值，此属性可读/写。
以下是实现代码：
Object 变量存储为 32 位（4 个字节）的地址形式，其为对象的引用。利用 Set 语句，声明为 Object 的变量可以赋值为任何对象的引用。
注意 虽然以 Object 类型声明的变量足以适应包含对各种对象的引用，但是绑定到变量引用的对象总是在晚期（运行时）绑定。要强迫在早期（编译时间）绑定的话，须将对象的引用赋值给用特定类名称声明的变量。
使用 Nothing 关键字被将对象变量从实际对象中分离开来。要使用
Set 语句将 Nothing 赋值给对象变量。例如：
Set MyObject = Nothing
Set 语句，将对象引用赋给变量或属性。