Hola Arturo:
Paso 1: Intentas al menos hacer algo.
Paso 2: Lo pruebas
Paso 3: Repites este proceso hasta que no tengas errores.
Mucho ojo... Aquí no hacemos el trabajo de otros. ¿Cuál es el problema? porque ni siquiera mencionas algún tipo de problemática...
¿Tienes dudas sobre cómo modelar la BD's?, dinos cuál es tu idea y te hacemos sugerencias o mejoras si las hay.
¿Tienes dudas sobre cómo programar en VB? entonces acude al foro de VB y expón tu problema.
¿Intentaste algo y tienes error?, entonces postea qué es lo que intentaste y cuál es el error.
Saludos
Leo.