Pada kesempatan ini saya ingin membuat fungsi penomoran otomatis dengan menggunakan kombinasi bulan dan tahun , sebelumnya saya juga pernah menulis fungsi dengan penomoran otomatis tapi tidak menggunakan kombinasi bulan dan tahun. Import system.data.sqlclien ‘ digunakan supaya perintah sqlcommand dikenali Public class pinjam () public function autonumber () Dim sql As String Dim xcmd As SqlCommand Dim xread As SqlDataReader Dim hasil As String Dim n As String n = "NPJ" & Date .Today.ToString( "yyMM" ) sql = "select top 1 no_pjm from pinjamHdr where no_pjm like '%" & n & "%' order by no_pjm desc " xcmd = New SqlCommand(sql, con) xread = xcmd.ExecuteReader If xread.HasRows = True Then xread.Read() hasil = n & Format(Val(Right(xread.Item( "no_pjm&q