Visual Basic.NET - Problema Visual studio y access 2007

Buenas noches.

A es la primera vez que posteo uno de mis problemas de programación.

El caso es que estoy haciendo un trabajo de programación para clase y en los requerimientos nos piden que utilicemos VB.NET y Access 2007.

Tengo una variable adaptador que me hace de tableadapter para la tabla tripulantes y esta definido asi:

Dim adaptador As New EnterpriseDataSetTableAdapters.TripulantesTableAdapter

Entonces yo tengo mi proyecto enlazado a una base de datos de access 2007 y los datos los cargo en un DataGrid de la siguiente manera:

Private Sub cargaColumnasDelGrid()
'COLUMNAS
'DataGridView1.Columns.Add("Id", "Id")
DataGridView1.Columns.Add("Nombre", "Nombre")
DataGridView1.Columns.Add("Funcion", "Funcion")
DataGridView1.Columns.Add("Rango", "Rango")
DataGridView1.Columns.Add("Raza", "Raza")

End Sub

Private Sub cargaFilasDelGrid()
'FILAS()
ReDim idsArray(EnterpriseDataSet.Tripulantes.Rows.Count - 1)
For i As Integer = 0 To EnterpriseDataSet.Tripulantes.Rows.Count - 1
Dim fila As DataRow = EnterpriseDataSet.Tripulantes.Item(i)
DataGridView1.Rows.Add()
idsArray(i) = fila.Item(0)
'DataGridView1.Item(0, i).Value = fila.Item(0) 'ID
DataGridView1.Item(0, i).Value = fila.Item(1) 'Nombre
DataGridView1.Item(1, i).Value = fila.Item(2) 'Función
DataGridView1.Item(2, i).Value = fila.Item(3) 'Rango
DataGridView1.Item(3, i).Value = fila.Item(4) 'Raza

Next
End Sub

Bueno despues de esto, vamos a lo que interesa, yo quiero agregar un nuevo tripulante y tiro de este codigo

Sub NuevoTripulante()
Dim valido
If CompruebaCampos() = True Then
MessageBox.Show("Guardando...")
valido = adaptador.NuevoTripulante(Me.TB_nombre.Text, Me.TB_funcion.Text, Me.TB_Rango.Text, Me.TB_raza.Text)
If valido > 0 Then
MessageBox.Show("Se ha guardado correctamente.")
actualizaDB()
'filaSeleccionada = DataGridView1.Rows.Count - 2 ' Se insertara en la ultima posicion
'cargaFilaSeleccionada(filaSeleccionada)
'DataGridView1.CurrentCell = DataGridView1.Rows.Item(filaSeleccionada).Cells(0)

Else
MessageBox.Show("Error al guardar los datos.")
End If
DesactivaCampos()
refreshDataGrid()

Else
MessageBox.Show("Ninguno de los campos puede estar en blanco, vuelva a rellenarlos", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub

Pero lo unico que hace es agregarlo al DataGrid, no lo consigo guardar en la BBDD y ya no se que hacer... si alguien tiene alguna idea se lo agradeceria infinitamente.

Me acabo de dar cuenta de que me he olvidado borrar una linea, en NuevoTripulante la funcion actualizaDB() no hace nada es una linea muerta que no va a ningun sitio :D

Perdon por el fallo, pero llevo una empanada considerable.