se voce estivre no programa usando localhost ao tem como mesmo pois ele sempre vai pedir algo no seu computador, mais se for em um servidor tente copiar os arquivos principais dentro da pasta
Do While r.Read texto = r.Item(0).ToString For i = 0 To r.FieldCount - 1 texto &= vbTab & r.Item(i).ToString Next i
lista_contatos.Items.Add(texto) Loop
Banco de dados começam com a linha 0 não com a linha 1
se tiver usando o comando cmd.CommandText = "DELETE * FROM tabela, troca pelo
cmMy.CommandText = "TRUNCATE FROM tabela" , pois ai ele apaga todos os dados