¿Como hacer consulta a una tabla con tableadapters?

[josiasdaniel_]

me esta dando el siguiente error

ERROR [28000] [Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'sa'. ERROR [28000] [Microsoft][ODBC SQL Server Driver][SQL Server]Login failed for user 'sa'.

y el codigo es:



Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RdBtn_Clasificado.CheckedChanged
Dim ClasificadoData As New DalaiTableAdapters.tbTarifaClassTableAdapter
If RdBtn_Clasificado.Checked Then

banderaTipoAviso = tipoAviso.Clasificado
RdBtn_Desplegado.Enabled = False
RdBtn_Clasificado.Enabled = False

'cargo el comboBox de Tarifa a Copiar
cmBoxTarCop.DataSource = ClasificadoData.GetData
cmBoxTarCop.DisplayMember = "ctc_nombre"
cmBoxTarCop.ValueMember = "ctc_codigo"

'cargo el comboBox de Tarifa Destino
cmBoxTarDes.DataSource = ClasificadoData.GetData
cmBoxTarDes.DisplayMember = "ctc_nombre"
cmBoxTarDes.ValueMember = "ctc_codigo"

End If
End Sub

Public Sub ManipularTablas(ByVal codigoOrigen As String, ByVal codigoDestino As String, ByVal tipo As Integer)
MsgBox("ORIGEN " + codigoOrigen.ToString + " Destino " + codigoDestino.ToString + " tipo " + tipo.ToString)
Select Case (tipo)
Case (tipoAviso.Desplegado)
MsgBox("tipo desplegado =>")

Dim adapter As New tbRangoDSTableAdapters.tbRangoDespTableAdapter
Dim data As tbRangoDs.tbRangoDespRow = CType(adapter.GetDataByCodigo(CInt(codigoOrigen.To String)), tbRangoDs.tbRangoDespRow)



Case (tipoAviso.Clasificado)
MsgBox("tipo clasificado =>")
End Select



End Sub