Public Function mache_was(ByVal test As String)
        Dim connection As New MySqlConnection
        Dim command As New MySqlCommand
        Dim datareader As MySqlDataReader
 
        Dim wert As String
 
 
        Try
            connection.ConnectionString = "server=localhost;" _
                                        & "uid=uffbuff;" _
                                        & "pwd=uffbuff;" _
                                        & "database=db_xyz_;" _
                                        & "port=1234;"
 
            command.Connection = connection
            command.CommandText = "...."
            connection.Open()
 
            datareader = command.ExecuteReader()
            datareader.Read()
            If datareader.HasRows Then
                wert = datareader("wert_aus_feld_in_db")
            End If
            datareader.Close()
            connection.Close()
            Return wert 
 
        Catch ex As Exception
            [Errorhandling]
        End Try
    End Function