hola
podrias ser algo como esto
Using conn As New SqlConnection("<connection string>")
Dim query As String = "SELECT T1.campo, T1.campo2, T2.campo As campo3 " & _
"FROM Tabla1 T1 INNER JOIN Tabla2 T2 " & _
"ON T1.campo = T2.campo WHERE T1.Id = @Id"
Dim cmd As New SqlCommand(query, conn)
cmd.Parameters.AddWithValue("@Id", CInt(txtId.Text))
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable
da.Fill(dt)
If dt.Rows.Count > 0 Then
Dim row As Datarow = dt.Rows(0)
txtCampo.Text = CStr(row("campo"))
txtCampo2.Text = CStr(row("campo2"))
txtCampo3.Text = CStr(row("campo3"))
End If
End Using
veras que en la query hice uso de alias para poder cambiar el nombre cuando dos tablas unidas tienen el mismo nombre en un campo
saludos
Leandro Tuttini
Blog
Buenos Aires
Argentina