请问vb中,能用data Environment 动态连接sql数据库么

        小弟的构想是这样子的.
        在进入应用程序的时候,有一个登陆框,录入要连接的数据库的名字,然后一按登陆按钮的时候,text里面的值就自动赋值到dataenviromwnt里面的connection对象的datasource里面去,从而实现动态连接,如果数据库名是现在数据库中没有的值,则msgbox:请输入正确的数据库代号!   
         因为使用dataenvironment这个设计器比较方便,建立的 命令也可以很方便的引用,就是不知道怎样用代码来实现动态sql连接.跪求高手指导工作,谢谢了!!!!!!
        --------------------编程问答-------------------- 在datacommand里面指定sql。 --------------------编程问答-------------------- 关注VB中每个问题，这样才能进步，帮你顶一下 --------------------编程问答-------------------- 可以直接在程序绑定,也可以在代码中动态绑定 --------------------编程问答-------------------- '楼主没有说是什么库，下面是连接sql server本地库的
Private Sub DataEnvironment_Initialize()
    on error goto A0
    linkcn="Provider=sqloledb;Data Source=.;Initial Catalog=" & text1.text & ";User Id=sa;Password="
    DataEnvironment1.Connection1.ConnectionTimeout = 30
    DataEnvironment1.Connection1.ConnectionString = linkcn
    DataEnvironment1.Connection1.Open linkcn
    exit sub
A0: msgbox "请输入正确的数据库代号!"
End Sub

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