Dim result As String
Dim query As String
query = "SELECT `datum`FROM `tabelle` WHERE `id`='136'"
Dim mycom As New MySqlCommand(query, conn)
Dim reader As MySqlDataReader
reader = mycom.ExecuteReader()
reader.Read()
result = reader("datum")