dim p1 as latlng 'that is your point
Dim str_poly As StringBuilder
str_poly.Initialize
str_poly.Append("ST_DISTANCE(ST_GeomFromText('POINT(").Append(p1.Longitude).Append(" ").Append(p1.Latitude)
str_poly.Append(")',4326),Geometry)")
Dim SpatialiteStatement As Spatialite_Stmt
Dim SQL_STR As String
SQL_STR="SELECT name,AsText(Geometry)," & str_poly & " AS DIST FROM " & TABLENAME & " ORDER BY DIST ASC LIMIT 5;"
SpatialiteStatement=SpatialiteDatabase.Prepare(SQL_STR)
Do While SpatialiteStatement.Step
etc..