怎么在文本框里显示数据

Dim adoshua As ADODB.Recordset
Set adoshua = New ADODB.Recordset
Dim ado As String
ado = "select C_wai_W,C_wai_H,C_wai_G from Chengben where Chengbendanghao='" & List1.Text & ""
adoshua.Open ado, data, 3, 1
        Text1.Text = adoshua("C_wai_W")
        Text2.Text = adoshua("C_wai_H")
        Text3.Text = adoshua("C_wai_G")

在数据库里的三个字段都为空值（Null），运行时又说这是无效的NULL值，现在我该怎么在文本框里显示数据？！ --------------------编程问答-------------------- Text1.Text = adoshua("C_wai_W") & ""
Text2.Text = adoshua("C_wai_H") & ""
Text3.Text = adoshua("C_wai_G") & ""

补充：VB ,  数据库(包含打印，安装，报表)