[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