Knight Data Access Layer contains methods to generate VB.NET from tables in a database.  If no path is specified for the filename, it will default to the current directory.  The current directory is normally bin\Debug.  Here is an example:

 

'Get the current instance of the helper

Dim db As IDataHelper = DataHelper.SessionFactory()

　

'The parameters are the namespace, the table name, and the class name

db.CreateVbClassFromTable("ACME.InvoiceSystem.Business", "Invoices", String.Format("{0}\Invoice.vb", Environment.CurrentDirectory))