Cita:
Iniciado por davidicii
Connx.Open()
Dim query As String = "SELECT Actividades.Nombreact, Cargo.NombreCargo, Cargo.Horas" & _
" FROM Actividades INNER JOIN Cargo ON Actividades.Actividad_id =" & Me.ComboBox2.SelectedValue
Dim cmd As New OleDb.OleDbCommand(query, Connx)
Dim da As New OleDb.OleDbDataAdapter(cmd)
Dim dt As New DataTable
da.Fill(dt)
TextBox1.Text = dt.ToString
solo con un espacio antes del FROM o despues de Cargo.Horas y listo