Public Sub ConnectionSql()         Dim Conn As SqlConnection = New SqlConnection        Dim IP As String = "192.000.XXX.XXX"        Dim DBName As String = "Store"        Dim Username As String = "MyAdmin"        Dim Password As String = "password"        Try             Conn.Close()           ...