ottengo questo errore nel codice sotto :

Messaggio di errore del compilatore: BC30188: Prevista dichiarazione.

la riga che mi da problemi e questa :

myConnection = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\MAURO MUNGO\Documenti\script ASP\mapoint\db.mdb")



<%@ Page Language="VB" Debug="true" %>
<%@ import Namespace="System.Drawing" %>
<%@ import Namespace="System.Drawing.Imaging" %>
<%@ import Namespace="System.IO" %>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>

<script runat="server">

Dim myConnection As OleDbConnection
Dim SqlSelect As oleDbcommand
Dim strSelect As string
Dim puntatore As oleDbDataReader

myConnection = New OleDbConnection ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\MAURO MUNGO\Documenti\script ASP\mapoint\db.mdb") '" & Server.MapPath("db.mdb")

strSelect = "SELECT x,y FROM mapoint where id=49"

SqlSelect = New oleDbcommand (strSelect , myConnection)

myConnection.open()
puntatore = SqlSelect.ExecuteReader()

'imposto le coordinate
dim x as Single = 20.0F
dim y as Single = 35.0F

Private Sub CreaImmagine(ByVal drawString As String)
' Importo il file di sfondo
Dim objBitmap As System.Drawing.Image = System.Drawing.Image.FromFile(Server.MapPath("map_ caorle.jpg"))
Dim objGraphic As Graphics = Graphics.FromImage(objBitmap)
' Formatto il testo da inserire

Dim drawFont As Font = New Font("Tahoma",12)
Dim drawBrush As SolidBrush = New SolidBrush(Color.Red)
' La posizione del testo
Dim drawPoint As PointF = New PointF( x, y )
' Disegno la stringa di testo sull'immagine
objGraphic.DrawString(drawString, drawFont, drawBrush, drawPoint)
' Imposto la tipologia di output

Response.ContentType = "image/jpeg"
' Salvo in output l'immagine
objBitmap.Save(Response.OutputStream, ImageFormat.Jpeg)
objBitmap.Dispose()
End Sub

Sub posiziona(sender As Object, e As EventArgs)

' richiamo la funzione passando la stringa del campo testo
'CreaImmagine(textbox1.text)

' richiamo la funzione passando dirrettamente la stringa
CreaImmagine("x")'textbox1.text)
End Sub

</script>