O codigo seguinte retorna o erro Já existe um DataReader aberto associado a este comando que deve ser fechado primeiro.
Dim Gws As gerencieLinkDataContext = New gerencieLinkDataContext()
Dim listaServicos = Gws.Sel_Servicos().AsQueryable
Dim cmd As SqlCommand = Gws.GetCommand(listaServicos)
Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
Dim ds As DataSet = New DataSet()
da.Fill(ds)
o erro aponta para a linha da.fill(ds)
alguém já passou por isso?