Private Sub Text1_LostFocus()
Dim cn As Object
Dim rsset As Object
Dim ConnectString As String
Dim Sql As String
Dim test_login As String

If Not Text1.Text = "" And Len(Text1.Text) > 5 Then

Launcher.Connect = Launcher.WMIPing(Launcher.server_ip)
If Launcher.Connect = True Then
ConnectString = "Provider=SQLOLEDB;Persist Security Info=False;Initial Catalog=Admin;Network Address=" & Launcher.server_ip & ";Network Library=DBMSSOCN;User ID=fgh;Password=123"
Set cn = New ADOD.Connection
Set rsset = New ADOD.Recordset
cn.ConnectionString = ConnectString
cn.Open

End If
End If

End Sub