Ciao ragazzi, premetto che questa stessa procedura l' ho già utilizzata altre volte è funziona. Ora però quando cerco di utilizzarla mi da errore. Cosa c' è che non va nel seguente codice ?

Dim conn As New OleDbConnection
Dim strsql As String
Dim cmd As New OleDbCommand
Dim data = Date.Now.ToString("g")

conn = New OleDbConnection("PROVIDER=Microsoft.JET.OleDb.4.0; Data source=" & Server.MapPath("~/App_Data/data1.mdb"))
strsql = "SELECT COUNT(*) FROM prodotti WHERE nome=@nome"
cmd = New OleDbCommand(strsql, conn)
cmd.Parameters.AddWithValue("nome", nomeProdotto)
conn.Open()

Dim ret As Object = cmd.ExecuteScalar()
Dim num As Int16 = ret
conn.Close()

If num > 0 Then
message.Text = "esiste già un prodotto con questo nome !"
messageBox.Visible = True

Exit Sub

l' errore è questo :

Errore server nell'applicazione '/CoffeeSistersNew'.

Si sono verificati errori in un'operazione OLE DB composta da più passaggi. Controllare i singoli valori di stato OLE DB, se disponibili. Nessuna operazione eseguita.

Riga 146: conn.Open()
Riga 147:
Riga 148: Dim ret As Object = cmd.ExecuteScalar()
Riga 149: Dim num As Int16 = ret
Riga 150: conn.Close()