[indoprog-vb] [ASK]: Nomor Otomatis lagi

[Setyo H]

Saya juga mempunyai permasalahan juga dengan pemberian nomor otomatis di
sebuah textbox,
ini scriptnya:

Private Sub AutoNo()
Dim No As Double
scari = "Select Nomor from CONTOH order by Nomor desc"
Set RCari = New ADODB.Recordset
RCari.Open scari, CN, adOpenKeyset
If RCari.RecordCount <> 0 Then
    No = Val(RCari("Nomor")) + 1
    NoStr = Digit(2, No)
    Text2 = NoStr
    If nosave = True Then
           'MsgBox "NOMOR TRANSAKSI YANG TERSIMPAN'" + Trim(Text1) + "'"
    End If
Else
    No = 1
    NoStr = Digit(2, No)
    Text2 = NoStr
End If
RCari.Close
Set RCari = Nothing
End Sub

Pesan error yg muncul, tidak ada data yg tersimpan dalam tabel
contoh.Baru ketika ada data dalam tabel tersebut, baru bisa berjalan
autono-nya.
Kebetulan database pake MySql, akan tetapi kalo saya implementasikan di
MS SQL Server bisa jalan.
Apa pengaruh didatabasenya ya?


Terima Kasih

Setyo