[nedaladnan1973]

اريد توليد رقم متسلسل داخل التكست بوكس عند فتح الفورم وفي كل مره يزداد رقم
ولا اريد استخدام id في الداتا بيز 
وللعلم استخدم vb.net 2012 وقاعدة بيبانات اكسس 
مع الشكر

[moosa_alabri]

تفضل وغير ما يلزم من اسم الجدول 

PHP كود :

Dim query As String = "Select IIf(IsNull(max(CustID)),1,max(CustID)+1) as id from customers"
        Dim dr As OleDbDataReader
        Dim cmd As New OleDbCommand(query, con)
        ' con.Open()
        dr = cmd.ExecuteReader
        dr.Read()

        txtid.Text = dr("ID").ToString