急急急！！！怎么将数据库中查的数据输出到vb中的text中，代码怎么写？

急急急！！！怎么将数据库中查的数据输出到vb中的text中，代码怎么写？

如果只是一个字段值：text1.text=finddata
如果是多个字段：text1.multiline 属性要设为true,
Private Sub Command1_Click()
dim finddata(2) as string
finddata(0) = "data1"
finddata(1) = "data2"
finddata(2) = "dfas3"
Text1.Text = finddata(0) + Space(3) + finddata(1) + Space(3) + finddata(2) + Space(3)
End Sub

见下面的代码，自己换成真实的数据库及表即可 imports system.dataimports system.ioimports system.data.oledbmodule module1 public cn1 as new oledb.oledbconnection("provider=microsoft.jet.oledb.4.0;data source=c:\access数据库1.mdb") '定义连接1---这里请更改为实际数据库路径及名称 public cn2 as new oledb.oledbconnection("provider=microsoft.jet.oledb.4.0;data source=c:\access数据库2.mdb") '定义连接2---这里请更改为实际数据库路径及名称 public databaserst1 as integer '用来返回数据库执行结果 public databaserst2 as integer '用来返回数据库执行结果 public function datamodify(byval str_cmd1 as string, byval str_cmd2 as string) as boolean '进行数据库修改操作函数 dim cmdinsert1 as new oledbcommand dim cmdinsert2 as new oledbcommand try cmdinsert1.commandtext = str_cmd1 cmdinsert2.commandtext = str_cmd2 cmdinsert1.connection = cn1 cmdinsert2.connection = cn2 if cn1.state = connectionstate.closed then cn1.open() if cn2.state = connectionstate.closed then cn2.open() databaserst1 = cmdinsert1.executenonquery() '用来返回执行的结果 databaserst2 = cmdinsert2.executenonquery() '用来返回执行的结果 cn1.close() cn2.close() return true catch ex as exception messagebox.show(err.description, "error", messageboxbuttons.ok, messageboxicon.error) return false end try end functionend module public class form1 private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.click datamodify("insert into aa values ('1','2')", "insert into aa values ('1','2')") '调用方法 end subend class