Dim newReady_ch_ip As Integer
 
conn.Open()
            Dim sqlquery7 = ("SELECT new_ch_ip FROM new_host WHERE new_id ='" & _
              check_key & "'")
            Dim mycommand7 As New MySqlCommand()
            mycommand7.Connection = conn
            mycommand7.CommandText = sqlquery7
            myAdapter7.SelectCommand = mycommand7
            Dim mydata7 As MySqlDataReader
            mydata7 = mycommand7.ExecuteReader()
            mydata7.Read()
            newReady_ch_ip = mydata7(0)
            conn.Close()

Dim newReady_ch_ip As Integer
 
Using con as New MySqlConnection ( ConnectionString )
  con.Open()
  Dim sql = "SELECT new_ch_ip FROM new_host WHERE new_id =?checkip"
 
  Using cmd As New MySqlCommand(sql, con)
    cmd.Parameters.AddWithValue("?checkip", check_key)
 
    Dim RetVal as Object = cmd.ExecuteScalar()
    If RetVal IsNot Noting then 
      newReady_ch_ip = CInt(RetVal)
    End If
 
  End Using
End Using

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

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)
        cmd.Parameters.AddWithValue("?check_key", check_key)
        dim retval as Object = cmd.ExceuteScalar()
        if retval IsNot Nothing Then
            *zensiert*_ch2_ip = CStr(retval) ' wenn das ein string ist 
        End If
    End Using
End Using