Buenos días. Tengo una tabla de datos en SqlServer. En la tabla hay un id, Poblaciones y km. En el diseño hay dos combos, origen y destino. También tengo un TextBox llamado km. Mi duda és: Al momento de seleccionar una poblacion en el combo destino quiero que aparezcan los km el el textbox.
Muestro un trocito de codigo. El error se produc en la linea "adapter.Fill(ds)"

Private Sub Desti
    _TextChanged(sender As Object, e As EventArgs)
     Handles Desti.TextChanged

       Dim connectionString As String = Nothing
       Dim connection As SqlConnection
       Dim command As SqlCommand
       Dim adapter As New SqlDataAdapter()
       Dim ds As New DataSet()
       Dim sql As String = Nothing
       Dim sql1 As String = Nothing
       Dim id As Integer

       connectionString = "Data
            Source=Josep-Pc\sqlexpress;Initial Catalog=Desplacaments;Integrated
            Security=SSPI;"
        
       sql = "SELECT poblacio, km FROM Poblacions where id
            =" + Desti.ValueMember + ";"
       connection = New SqlConnection(connectionString)
       Try
           connection.Open()
           command = New SqlCommand(sql, connection)
           adapter.SelectCommand = command
           adapter.Fill(ds)
           adapter.Dispose()
           command.Dispose()
           connection.Close()
       Catch ex As Exception
           MessageBox.Show("No es pot obrir ")
       End Try
       Try
           If ds.Tables("Poblacions").Rows.Count = 0 Then
               MessageBox.Show("Oh, no hi ha registres!")
           Else
              
               km.Text = ds.Tables("Poblacions").Rows(id).Item(id).ToString
           End If
       Catch ex As Exception
           MessageBox.Show("Error")
       End Try
   End Sub

[Editado: pitus, 13/02/2017 12:58:57]

Solucione esto. Dejo aqui mi solucion por si puede servir a alguien.

Try
     connection.Open()
     command = New SqlCommand(sql, connection)
     adapter.SelectCommand = command
     adapter.Fill(ds)
     adapter.Dispose()
     command.Dispose()
     connection.Close()
     Desti.DataSource = ds.Tables(0)
 Catch ex As Exception
     MessageBox.Show("No es pot obrir ")
 End Try

 MessageBox.Show(ds.Tables(0).Rows.Count)
 Try
     If ds.Tables(0).Rows.Count = 0 Then
         MessageBox.Show("Oh, no hi ha registres!")
     Else
         'MessageBox.Show(ds.Tables(0).Rows(0).Item(0))
         'Desti.Text = ds.Tables(0).Rows(0).Item(0)
         km.Text = ds.Tables(0).Rows(0).Item(1)
     End If
 Catch ex As Exception
     MessageBox.Show("Error")
 End Try