username e password? e di cosa?

comunque devi fare così, all'inizio metti

codice:
dim t,max as integer
	dim MyConnection as new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source="+server.mappath("database.mdb"))
	dim myCmd as new OleDbCommand( "select count(id) from visite",MyConnection )
	MyConnection.open()
	dim nrCampi as integer = myCmd.ExecuteScalar()
	MyConnection.close()
	dim mesi(nrCampi) as string
	dim visite(nrCampi) as integer
	dim MyCommand as new OledbCommand("Select * from visite",MyConnection)
la parte in grassetto di rende dinamico il numero dei campi, poi il ciclo for sarà
codice:
' Scritte descrittive sul fondo e barre

	Dim colori() As Color = {Color.Red, Color.Blue, Color.Green, Color.Magenta}
    for t=0 to nrCampi - 1
nella parte in grassetto dovrai inserire tanti colori quanti potranno essere al massimo i tuoi campi

ovviamente dovrai modificare la larghezza delle barre e la loro posizione x se vuoi far stare tutto nell'immagine