打开两个数据时,数据库名怎么表示

我写的一个小程序,目的是把一个数据库的表t_voucher数据插入另一个数据库的t_voucher表中,两表的结构完全一样.代码如下:
Set cnn1 = New ADODB.Connection
cnn1.ConnectionTimeout = 25
cnn1.Provider = "sqloledb"
cnn1.Properties("data source").Value = Text1.Text 'SQL服务器的名
cnn1.Properties("initial catalog").Value = Text2.Text '库名
cnn1.Properties("integrated security").Value = "SSPI" '登陆类型
'con.Properties("user id").value = "sa"
'con.Properties("password").value = ""
cnn1.Open
Set cnn2 = New ADODB.Connection
cnn2.ConnectionTimeout = 25
cnn2.Provider = "sqloledb"
cnn2.Properties("data source").Value = Text1.Text 'SQL服务器的名
cnn2.Properties("initial catalog").Value = Text3.Text '库名
cnn2.Properties("integrated security").Value = "SSPI" '登陆类型
'con.Properties("user id").value = "sa"
'con.Properties("password").value = ""
cnn2.Open
Dim SQL1 As String
  SQL1 = "insert into c.dbo.t_voucher(fbrno,fvoucherid,fdate,fyear,fperiod,fgroupid,fnumber,freference,fexplanation,fattachments,fentrycount,fdebittotal,finternalind,fcheckerid,fposterid,fcashierid,fhandler,fownergroupid,fobjectname,fparameter,fserialnum,ftrantype,ftransdate,fframeworkid,fapproveid,ffootnote,uuid,fpreparerid,FCreditTotal) select a.fbrno,a.fvoucherid,a.fdate,a.fyear,a.fperiod,a.fgroupid,a.fnumber,a.freference,a.fexplanation,a.fattachments,a.fentrycount,a.fdebittotal,a.finternalind,a.fcheckerid,a.fposterid,a.fcashierid,a.fhandler,a.fownergroupid,a.fobjectname,a.fparameter,a.fserialnum,a.ftrantype,a.ftransdate,a.fframeworkid,a.fapproveid,a.ffootnote,a.uuid,a.fpreparerid,a.FCreditTotal from e.dbo.t_voucher a where fvoucherid not in(select fvoucherid from c.dbo.t_voucher)"
cnn1.Execute SQL1
cnn1.Close
cnn2.Close

我的sql服务器名,库名,是通过文本框的值确定的.
现在的问题是,我不知道怎么样把上面的红色的表示库名的地方也换成文本框的值.
是不是还有其他更好的办法,请帮忙. --------------------编程问答-------------------- "insert into "& text1.text &".t_voucher --------------------编程问答-------------------- text4.text="c.dbo."

SQL1="insert into " & Text4.Text & "t_voucher(...........)"
'msgbox SQL1
这样应该就可以了~ --------------------编程问答-------------------- 基本同意楼上的
不过,我建议最好用变量或设置属性来传递参数 --------------------编程问答-------------------- --------------------编程问答-------------------- 搞掂,非常感谢!

补充：VB ,  基础类