我写的下面这些代码就不知道怎么继续下去了

= "SELECT per_Employees.*  FROM per_Employees where code=@gonghao"
            OdbcCommand1.Parameters.Add("@gonghao", Odbc.OdbcType.Text)
            OdbcCommand1.Parameters("@gonghao").Value = TextBox1.Text

我这样写完.单是发先连接数据库的时候说我没权限登陆.难道SQL 2005不支持用VPN远程连过去用吗?
 Try
            Dim ad As OdbcDataAdapter

            OdbcConnection1.Open()
             = "SELECT per_Employees.*  FROM per_Employees where code=@gonghao"
            OdbcCommand1.Parameters.Add("@gonghao", Odbc.OdbcType.Text)
            OdbcCommand1.Parameters("@gonghao").Value = TextBox1.Text
            ad = New OdbcDataAdapter(OdbcCommand1)
            ad.Fill(DataSet1)
            DataGridView1.DataSource = DataSet1.Tables(0)
            OdbcConnection1.Close()
            Exit Sub
        Catch
            OdbcConnection1.Close()
        End Try

我在本机装了一个SQL,用逐句调试时发现在ad.Fill(DataSet1)这一句上出错.
提示:数据类型 nvarchar 和 text 在 equal to 运算符中不兼容。

我怎么才可以把TEXTBOX1.TEST里的STRING转换为nvarchar类型呢

解决问题了，在ＳＱＬ语句里用ＣＡＳＴ转换就ＯＫ了