Public Function MyFunction(ByVal id As Int) As Object Dim sSQL As New MySqlCommand sSQL.Connection = db1 sSQL.Parameters.AddWithValue("@id", ID) sSQL.CommandText ...