Unfortunately, you have not supplied much information but let me give you an exmaple of some code that you should be able to modify to your purpose.
Dim SQL1 As String = "SELECT Field1, Field2 FROM Table1 where Field2 = 7" 'Standard SQL
Dim SQL2 As String = "SELECT Field3, Field4, Field1 FROM Table2 Where Field1 in (SELECT Field1 FROM Table1 where Field2 = 7)" 'This SQL contains a nested select to get the child data for only the records that match the parent
'A neat feature, combine them into 1 SQL statement that will produce 2 tables in your dataset in one call
Dim SQL3 As String = SQL1 & ";" & SQL2
Dim CN As New SqlClient.SqlConnection("Your connection string here")
Dim DS As New DataSet
Dim DA As New SqlClient.SqlDataAdapter(SQL3, CN)
CN.Open()
DA.Fill(DS)
CN.Close()
See notes in the code for explainations of what is happening. Based on your TAGs of VB.net, Sql Server and Net1.1, this should all work for you.