Use "As", the same as you did for "func". Also, since you're having this problem, you might want to turn Option Strict On, which would have caught this.
Dim cmdIns As New OleDb.OleDbCommand(sql, conn)
Dim parm1 As New OleDb.OleDbParameter("@UserID", OleDbType.Integer)
hog, hopefully you mistyped and meant something more like this:
Dim cmdIns = OleDb.OleDbCommand
cmdIns = New OleDb.OleDbCommand(sql, conn)
The way you've got it right now actually creates two instances, one on the first line, which immediately gets thrown away with the second line. Not good.