select case statements in VBA

[dave]

Does anyone know what the SQL Server 2000 equivalent, if
there is any, would be to the Access VBA Select Case
statement? For example code in VBA would be.

Dim SomeVariable As Integer

Select Case SomeVariable
Case 1
'Do this
Case 2
'Do that
Case Else
'Do all
End Select

Thanks, Dave