关于VB的一段代码

Private Sub form_load()
With objCn
.Provider = "TXL"
.ConnectionString = "user ID =;pwd=; data source=(local)" & "initial catalog=个人通讯录"
.Open 《===运行时这里报错 谁能告诉我是怎么回事哇
End With
Set objcmd.ActiveConnection = objCn
With objcmd
.CommandText = "select * from TXL where Tname like ?" & "and Tphone like ?"
.CommandType = adCmdText
End With
Dim parm As New Parameter
Set parm = objcmd.CreateParameter("Tname", adVarChar, adParamInput, 10)
objcmd.Parameters.Append parm
Set parm = objcmd.CreateParameter("Tphone", adVarChar, adParamInput, 10)
objcmd.Parameters.Append parm
Label4 = ""
End Sub
本人新手 希望来个大侠 解难

关于写一段VB代码 关于VB中文本框的一段代码的问题！ 求一段VB代码，关于textbox的控件参数。 请教一段vb的代码 vb的一段简单代码~~~大家看看~！！ 一段VB基础的代码问题 帮写一段VB判断的代码 高分求一段算法的vb代码。 我现在急需VB的一段代码 帮忙看一下一段vb的代码