Dim con As New SqlConnection("Server=server1.****.de/phpMyAdmin/?db=****;" _
      & _
                                 "database=****;" & _
                                 "Uid=****;" & _
                                 "pwd=xxx")
 
    Private Sub cmdAnzeige_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles cmdAnzeige.Click
 
        con.Open()
        MsgBox("@!#$")
        con.Close()
    End Sub