Mail til gruppe

Hvad er der galt med den her kode.

(Den oprindelige kode kommer her fra http://www.eksperten.dk/spm/373000)

frmTest er en formular med en knap der aktivere koden, feltet cboMedlemstype er en kombinationsboks, der indeholder en række forskellige medlemstyper.
Returværdien fra cboMedlemstype er et tal af typen "Lang heltal"
Knappen virker fint hvis jeg fjerner: WHERE MedlemstypeRefNr = vType


Koden bag knappen er:

Private Sub Kommandoknap0_Click()

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim varOutput As Variant
Dim strQuery As String
Dim strEmail As String
Dim vType As Variant

Set vType = [Forms]![frmTest]![cboMedlemstype]
Set cnn = CurrentProject.Connection
Set rst = New ADODB.Recordset

    'Ret SQL-sætningen til for hvilke mailadresser der skal sendes til
    strQuery = "SELECT Mailadresse FROM tblMedlemmer WHERE MedlemstypeRefNr = vType"
    rst.Open strQuery, cnn, adOpenStatic, adLockReadOnly, adCmdText

If rst.RecordCount > 0 Then
    varOutput = rst.GetString(, , , "; ")
    strEmail = "mailto:" & varOutput
    Application.FollowHyperlink strEmail
Else
    MsgBox "Der findes ingen bestyrelsesmedlemmer", vbExclamation, "Ingen bestyrelsesmedlemmer"
End If

rst.Close
cnn.Close

End Sub