Urgente: Llenar un DataSet con 2 tablas de Access

[alejimram_22]

Hola, expertos, necesito saber con código como se llene un DataSet con 2 o más tablas de Access, lo puedo hacer para SQL pero no para access.

Gracias por su ayuda.

Este es mi código:

Dim s_CAdicional As String

'Lleno un DataSet con las tablas que se utilizarán en toda la pantalla
gsa_cnn.ConnectionString = gsa_conexion
gs_Consulta = "Select * from Datos order by Codigo ASC"
s_CAdicional = "Select * from Adicional order by Codigo ASC"

gsa_cnn.Open()
gsa_da = New OleDb.OleDbDataAdapter(gs_Consulta, gsa_cnn)
gsa_da = New OleDb.OleDbDataAdapter(s_CAdicional, gsa_cnn)

gsa_da.Fill(gs_ds, "Datos")
gsa_da.Fill(gs_ds, "Adicional")


gs_ds.Tables(0).TableName = "Datos"
gs_ds.Tables(1).TableName = "Adicional"


'dgv_adicional.DataSource = gs_ds.Tables("Adicional")
gsa_cnn.Close()