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