Código VB.NET:
Ver originalDim sSQL As String = "SELECT * FROM Clientes WHERE IDCliente=" & miCombo.SelectedValue
Dim miAdapter As New SqlDataAdapter(sSQL, miConexion)
Dim miDataSet As New Dataset
miAdapter.Fill(miDataSet, "Clientes")
miGrid.DataSource = miDataSet.Tables("Clientes")
miGrid.Databind
Sería algo así.