VB读取SQL数据并在文本框中显示时，数据为空会报错

Question

VB读取SQL数据并在文本框中显示时，数据为空会报错，我希望为空也不报错，该怎么处理？代码如下：
Private Sub Command1_Click()Dim conn1 As New ADODB.Connection
Dim rst1  As ADODB.Recordsetconn1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=室分;Data Source=PC-201009081452"
conn1.Open
SQL1 = "select * from 问题处理记录 where TD编号= "
SQL1 = SQL1 & " '" & Text1.Text & " ' "Set rst1 = conn1.Execute(SQL1)Do Until rst1.EOFText2.Text = rst1("高度")rst1.MoveNext
LoopEnd Sub
如果高度为空的话VB会提示：无效使用NULL，该怎么处理呢？

Answer 1

还有一个问题是，我如果想更改高度字段，直接在显示查询结果的文本框中改完，然后按保存按钮，希望将改过的数据存入SQL数据库又改怎么操作？？

Answer 2

iif(isnull(rst1!高度,"0",rst1!高度))

Answer 3

   NewSql = "update 问题处理记录 set 高度="+ trim(text2.Text)                    
   NewCommand.ActiveConnection = Conn
   NewCommand.CommandType = adCmdText
   NewCommand.CommandText = NewSql
   NewCommand.Execute

Answer 4

Text2.Text = rst1("高度") & ""

Answer 5

iif(isnull(rst1!高度),"0",rst1!高度)

Answer 6

报错：ActiveConnection 未找到方法或数据成员

Answer 7

建议看看最基础的ado应用的书，可能进度会快得多