Using con As New MySqlConnection("Server=*zensiert*;" + "Database=*zensiert*;" _
  + "User ID=*zensiert*;" + "Password=*zensiert*;" + "Pooling=false")
                con.Open()
                Dim sql = "SELECT *zensiert*_ch_ip FROM *zensiert*_host WHERE" & _
                  "*zensiert*_id ='" & check_key & "'"
 
                Using cmd As New MySqlCommand(sql, con)
 
                    Dim readnow As MySqlDataReader
                    readnow = cmd.ExecuteReader()
                    readnow.Read()
                    *zensiert*_ch2_ip = readnow(0)
 
                    readnow.Close()
                    con.Close()
                End Using