Setting an Object to a Variable

Short and sweet, I am trying to set an Object to a variable and am getting a "Type Mismatch" error on the line noted. I have tried other things and still can't get it to work, so I'm sure I'm missing something easy.

Formula:

' < BEGIN: Populate Data for Sequence Codes >

Dim sCombo As Object

Dim sComboName As String



sComboName = "Me.cboBaseSeq" & i



For i = 1 To 5

   Set sCombo = sComboName    ' <-- I get a "Type Mismatch" error on this line

   With sCombo

      If (i <> 1) Or (i <> 5) Then

         .AddItem "A"

         .AddItem "H"

      End If

      .AddItem "E"

      .AddItem "G"

   End With

Next i