Hosttxt.Text = Host
If Host <> "" Then
With CN
.Provider = "IBMDA400"
.ConnectionString = "Data Source=" & Host
.Open
End With