Error Visual Studio

[yamiblancoc]

Buen dia, alguien me podra ayudar con este error...

Código Visual Studio:

Private Sub combobox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbbperiod.SelectedIndexChanged
 
        Dim MyVar As String
 
        If cbbperiod.Text IsNot Nothing Then
            MyVar = cbbperiod.Text
        Else
            MyVar = ""
        End If
 
 
        AbrirConexion()
        Dim Sql As String
 
        Sql = "Select Case [codigo] FROM [WStation].[ws].[LO" & MyVar & "]where(CodPesAnt >= 1000 And CodPesAnt <= 1094)GROUP BY CodPesAnt order by CodPesAnt asc"
 
        Dim da As SqlDataAdapter
        Dim dt As New DataTable
 
        da = New SqlDataAdapter(Sql, Cone)
        [COLOR="Red"]da.Fill(dt)[/COLOR] <--- MI ERROR
        Me.cbbperiod.DataSource = dt
        Me.cbbperiod.DisplayMember = "CodPesAnt"
 
 
        Button1.Enabled = True
        bttload.Enabled = True
        bttclean.Enabled = True
        ComboBox3.Enabled = True
        ComboBox4.Enabled = True
        ComboBox2.Enabled = True
        ComboBox1.Enabled = True
 
 
    End Sub
 

ERROR: Me abre una ventana que dice "El codigo de usuario no controlo SqlException" y depues dice Incorrect syntax near the keyword 'FROM'.



alguien podra explicarme