Ошибка VB с типом

Dim recCount As Integer
        For i As Integer = 1 To rsUsers.RecordCount - 1
            If Not IsDBNull(rsUsers("samaccountname").Value) Then
                'MessageBox.Show(rsUsers("userAccountControl").Value.ToString)
 
                Dim flags As Integer
                flags = CInt(rsUsers("userAccountControl").Value)
                Dim b As Boolean
                Const UF_DISABLED = &H2
                b = CBool(flags And UF_DISABLED)
 
                If rsUsers("samaccountname").Value <> "" And Not Convert.ToBoolean(flags And UF_DISABLED) Then
                    recCount = 1
                    Dim rs As ADODB.Recordset
                    rs = New ADODB.Recordset
                    ss = "Select id, samaccountname, mail from person_all where  (CN like '" + rsUsers("CN").Value.ToString + "' and samaccountname like '" + rsUsers("samaccountname").Value.ToString + "') or (CN like '" + rsUsers("cn").Value.ToString + "' and(samaccountname like  '%-4%' or samaccountname like 'noll'))"
                    rs.Open(ss, cn, adOpenKeyset, adLockOptimistic)
                    recCount = rs.RecordCount

                    If recCount = 1 & IsDBNull(rs("mail").Value) Then
 
                        Dim ins As String