mysql - vb.netでSQLクエリを変数として設定するにはどうすればよいですか

Question

    Private Sub btncalc_Click(Sender,e)
    a = val(txtConcode.Text)
    b = val(txtConsumed.Text)
    If a = 1 Then
    Dim cmd as new mysqlcommand
    cmd.connection = con
    connect()
    cmd.CommandText = "select Rate from tblrate where ConvertID=1"
    dr = cmd.ExecuteReader
    if dr.Read Then
    q = dr.Read
    end if
    disconnect()

私が知りたいのは、SQLクエリから値を取得して変数qに転送する方法です。たとえば、drのものを作成しました