ops se lancio la query su SQL funziona e mi restituisce il mio valore ma in VB mi da errore ti posto il code ok?

codice:
Private Sub Form_Load()
    Dim rs As ADODB.Recordset, qry As String, qry2 As String, qry3 As String, scelta As String
    CentraForm Me
    connetti
    scelta = frmMagazzino.lstMagazzino.SelectedItem
        Set rs = New ADODB.Recordset
        qry = "SELECT Prod_id, Prod_nome FROM ProdAnagrafica WHERE Prod_id=" & scelta
        qry2 = "SELECT SUM(Mov_quant) AS SOMMA FROM Movimenti WHERE Mov_tipo =" & "USCITA"
        qry3 = "SELECT SUM(Mov_quant) AS SOMMA FROM Movimenti WHERE Mov_tipo =" & "ENTRATA"
        '----------------------------popolo il nome e il codice---------------------------
        rs.Open qry, CN, adOpenStatic, adLockReadOnly
        If rs.RecordCount > 0 Then
            txtId.Text = rs!Prod_id
            txtNome.Text = rs!Prod_nome
        End If
        rs.Close
        '-------------------------------popolo le entrate----------------------------------
        rs.Open qry2, CN, adOpenStatic, adLockReadOnly
        If rs.RecordCount > 0 Then
            txtUscite.Text = SOMMA
        End If
        rs.Close
    popolaInventario
    Disconnetti
End Sub

se vado in debug e mi fermo su rs.open qry2 dentro qry2 il valore è ="" quindi la somma non me la passa forse in vb cambia la sintassi?

thanks!!:master: