Validasi Menyimpan Data Dalam Listview Ke Database

Tulisan ini merupakan kelanjutan dari tulisan saya yang sebelumnya yang pernah saya janjikan yang membahas tentang cara Menyimpan Data Dalam Listview Ke Database. Validasi data disini berfungsi untuk menghindari duplikasi data sehingga tidak terjadi data yang double dalam database kita.
Kita misalkan saja sudah ada dalam database NIM : 0001, kita mau input lagi nim 001 maka akan ada peringatan bahwa nim tersebut sudah ada dalam database dan tidak bisa dimasukan ke dalam database.

Bagaimanakah koding validasinya? Ketikan koding berikut ini pada tombol Masuk, 

Private Sub cmdMasuk_Click()
    With ListView1
        Set RsMhs = New ADODB.Recordset
        RsMhs.Open "SELECT NIM FROM tbl_Mhs WHERE NIM='" & TxtNim.Text & "'", Conn, adOpenDynamic, adLockReadOnly
        'Jika Jika dlm database tdk ditemukan dan di listvie msh kosong
        If RsMhs.EOF And .ListItems.Count <= 0 Then
            Set View = ListView1.ListItems.Add
            View.Text = TxtNim.Text
            View.SubItems(1) = TxtNama
            View.SubItems(2) = TxtAlamat
            View.SubItems(3) = TxtJurusan

            'Membersihkan textbox
            TxtNim.Text = ""
            TxtNama.Text = ""
            TxtAlamat.Text = ""
            TxtJurusan.Text = ""
            TxtNim.SetFocus
            
        'Jika dlm database tdk ditemukan dan dlm listview sudah ada datannya
        ElseIf RsMhs.EOF And .ListItems.Count > 0 Then
            For i = 1 To ListView1.ListItems.Count
                'mencegah data yang sama
                If Trim$(.ListItems(i).Text) = Trim$(TxtNim.Text) Then
                    MsgBox "NIM " & .ListItems(i).Text & " Sudah Ada Dalam Daftar Lisview, Silahkan Dicek", vbInformation, "Informasi"
                    Exit Sub
                End If
            Next i
            'Memasukan Data Ke Listview
            Set View = ListView1.ListItems.Add
            View.Text = TxtNim.Text
            View.SubItems(1) = TxtNama
            View.SubItems(2) = TxtAlamat
            View.SubItems(3) = TxtJurusan

            'Membersihkan textbox
            TxtNim.Text = ""
            TxtNama.Text = ""
            TxtAlamat.Text = ""
            TxtJurusan.Text = ""
            TxtNim.SetFocus
        Else
            'Jika dlm listview sudah ada datanya dan nim nya sama
            MsgBox "NIM " & TxtNim.Text & " Sudah Ada Dalam Database, Silahkan Dicek", vbInformation, "Informasi"
            Exit Sub
        End If
        RsMhs.Close
    End With
End Sub

Tentunya koding diatas berkaitan dengan tulisan saya sebelumnya, jika anda belum punya source code tulisan saya sebelumnya silahkan download di sini, kemudian tambahkan/ganti dengan koding di atas pada tombol  Masuk untuk validasi datanya.