Agregar Nuevo Registro en ACCESS

En el Archivo conex agregar el siguiente código:
Public Shared CN As New OleDbConnection(conexion.conex)
Public Shared Sub Insertar(ByVal consulta As String)
Dim cmd As New OleDbCommand(consulta, conexion.CN)
conexion.CN.Open()
cmd.ExecuteNonQuery()
conexion.CN.Close()
End Sub
Public Shared Sub LlenarCombo(ByVal CB As ComboBox, ByVal sql As String, ByVal valor As String, ByVal nombre As String)
cb.DataSource = Listar(sql)
cb.DisplayMember = nombre
cb.ValueMember = valor

End Sub