Se intendi come valore dinamico il nome della tabella prova con:

public sub generate_id (ByVal nome_tabella As String)
Dim str_sql As String

str_sql = "SELECT * FROM " + nome_tabella

Ciao