Guardar en access desde un formulario en Excel VBA

Buen día.

Mi caso es el siguiente:

Tengo un archivo de excel con un formulario, donde luego de llenarlo haces clic en el botón "Ingresar a DB" toda la información se copia a una base de datos que tengo en otra hoja de excel.

Mi problema es que la base de datos se está volviendo muy extensa, así que la exporte a Access.. Pero ahora quisiera que en vez de guardar los datos en excel, se guardaran directamente en mi db de access...

Podrían ayudarme???

Aquí les pasoel código que utilizo hasta ahora.

Gracias!!

Private Sub CommandButton2_Click()
Workbooks.Open Filename:="\\Server\database.xls"
Sheets("DB").Activate
If TextBox1 = "" Or TextBox2 = "" Or TextBox3 = "" _
Or TextBox4 = "" Then MsgBox "Está dejando campos requeridos vacios favor complete", vbExclamation, "Almacen"
TextBox3.SetFocus
Else
Range("A" & Cells.Rows.Count).End(xlUp).Offset(1).Select
ActiveCell = TextBox1.Value
ActiveCell.Offset(0, 1) = TextBox2.Value
ActiveCell.Offset(0, 2) = TextBox3.Value
ActiveCell.Offset(0, 3) = TextBox4.Value
ActiveCell.Offset(0, 4) = TextBox5.Value
TextBox1.SetFocus
End If
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub