VB/SQLExécution de 2 requetes ds if / elsif

Bonjour,

j'ai un problème d’exécution de deux requêtes dans l’instruction If et ElseIf: merci de votre aide

Private Sub Importation_Click()

Dim cmd2 As adodb.Command

Dim ReqSQL2 As Integer

Dim rdset2 As adodb.Recordset

Set cmd2 = New adodb.Command

Set cmd2.ActiveConnection = CxBase

ReqSQL2 = "SELECT distinct(ANNEE) FROM CALENDRIER"

cmd2.CommandText = ReqSQL2

Debug.Print ReqSQL2

cmd2.Execute (ReqSQL2)

If ReqSQL = 2008 Then

C = MsgBox("L'année existe déjà, Etes vous sûre???", 32 + 4, "Question")

ElseIf C = 7 Then
End

Else

la reste je l'ai testé et ca marche je crois le problème c’est en haut

Dim cmd1 As adodb.Command

Dim ReqSQL1 As String

Dim rdset1 As Recordset

Set cmd1 = New adodb.Command

Set cmd1.ActiveConnection = CxBase

cmd1.CommandText = "exec SU_BU_IMPORT 2009"

Debug.Print ReqSQL1

cmd1.Execute (ReqSQL1)

End If

End Sub

merci