مشکل در ارتباط با بانک

سلام لطفا به کد زیر یه نگا بندازین
 con.Open()

        strsql = "update page set panamefam=" + "'" + TxtName.Text + "'" + " where palevels='" & maxnum & "' "

        Dim da As New OleDbDataAdapter(strsql, con)

        Dim ds As New DataSet

        da.Fill(ds, "page")

        con.Close()
فیلد panamefam توی بانک از نوع number هستش و من میخوام محتویات txtname.text رو توش ذخیره کنم
چون اینا نوع داده هاشون با هم سازگار نیست ایراد میگیره
حالا هر چی از val یا int یا cint استفاده میکنم بازم ایراد میگیره
چطوری باید مشکلمو حل کنم
ممنون و موفق باشید