数据库写入代码

Private Sub Command1_Click()    '添加
    If Dir("Test.mdb") <> "" Then
        Dim Conn
        Dim ConnectionString As String
        Set Conn = CreateObject("ADODB.Connection")    '连接数据库
        Conn.Open "provider=Microsoft.Jet.oledb.4.0;" & "data source=Test.mdb"    '
        Dim rs As New ADODB.Recordset
        SQL = "select * from data1"
        rs.Open SQL, Conn, 1, 3
        ''批量添加
        Dim q1, q2, q3, q4, q5
        q1 = Split(Text1.Text, "，")
        q2 = Split(Text2.Text, "，")
        q3 = Split(Text3.Text, "，")
        q4 = Split(Text4.Text, "，")
        q5 = Split(Text5.Text, "，")
        For i = 0 To UBound(q1)
            rs.AddNew
            rs("g_ds") = q1(i)
            rs("g_dx") = q2(i)
            rs("g_hds") = q3(i)
            rs("g_hdx") = q4(i)
            rs("g_wdx") = q5(i)
            rs.Update
        Next
        rs.Close
        Set rs = Nothing
        Set Conn = Nothing
    Else
        MsgBox "提示：数据库Test.mdb不存在...", vbCritical, ""
    End If
End Sub

我想写入5个数据，但是运行后，显示是有颜色部分未定义。这怎么改啊？ --------------------编程问答-------------------- 要先引用ADO --------------------编程问答-------------------- 用DATA的可以不可以啊？那该怎么改啊？
--------------------编程问答-------------------- 工程-引用中添加 ms activex data 2.5（或者2.6、2.7、2.8） --------------------编程问答-------------------- 也可以使用ADO控件呀```
  不过移植性好像没有ADO对象好。。 --------------------编程问答-------------------- 没有ms activex data 2.5（或者2.6、2.7、2.8），这是怎么回事啊？ --------------------编程问答-------------------- http://download.csdn.net/detail/veron_04/3827200

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