请问如何实现，在窗口中的服务器的文本框中输入数据库服务器的ip，然后输入系统的用户名、密码后登陆系统。。

窗口的AfterLoad事件代码如下：

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
cmd.C
cmd.CommandText = "SELECT DISTINCT Name From {Users}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.Datarows
    cmb.Items.Add(dr("Name"))
Next
cmb.SelectedIndex = 0

请问如何调整代码，实现“在窗口中的服务器的文本框中输入数据库服务器的ip，然后输入系统的用户名、密码后登陆系统。”