我要崩溃了，帮忙看哈哪的问题！

Question

sub filldatagrid_gb
    dgdata.Visible="true"
dim cmd as new oledbdataadapter("SELECT gb.gb_id, gb.gb_date,gb.gb_posterip, gb.gb_content, gb.gb_view, gb.gb_reply ,user.gb_poster, user.gb_postersex, user.gb_posterqq, user.gb_posteremail, user.gb_posterhome FROM gb,[user] where gb.gb_posterid=user.gb_posterid ",conn)
    dim ds as dataset=new dataset()
cmd.fill(ds, "gb")
dgdata.datasource=ds.tables("gb").defaultview
dgdata.databind()

end sub异常详细信息: System.Data.OleDb.OleDbException: 至少一个参数没有被指定值。源错误: 
行 38：  dim cmd as new oledbdataadapter("SELECT gb.gb_id, gb.gb_date,gb.gb_posterip, gb.gb_content, gb.gb_view, gb.gb_reply ,user.gb_poster, user.gb_postersex, user.gb_posterqq, user.gb_posteremail, user.gb_posterhome FROM gb,[user] where gb.gb_posterid=user.gb_posterid ",conn)
行 39：     dim ds as dataset=new dataset()
行 40：  cmd.fill(ds, "gb")
行 41：  dgdata.datasource=ds.tables("gb").defaultview
行 42：  dgdata.databind()
 

Answer 1

conn 定义了没?conn.open了没??

Answer 2

哈哈，自己发现了．通宵的坏处啊！
date写成data了！

Answer 3

oledbdataadapter有参数没有制定值，你的conn没有定义吧
dim conn as new OleDbConnection("")