pass sql server password on crystal report runtime ( melewati/menghilangkan password sql server pada crystal report ketika runtime ) Code in VB .Net

wkwkwkwkwkwk sebelumnya ane minta maaf dalam penulisan judul barang kali salah,,,,,!!!!!!!!!!! :D :D maklum wong jowo,,,

ok,langsung ke TKP,,,
Dalam pembuatan laporan dengan menggunakan crystal report dgn database sql server biasanya biasanya pada saat runtime muncul logon yg berisi konfirmasi minta password akses,,,

perhatikan kode berikut :


 'deklarasi dataset buat isi source laporan
        Dim ds As New DataSet
        Dim cnn As SqlConnection


        'deklarasi string buat isi perintah query
         dim strsql as string


        'deklarasi string buat isi koneksi
         dim ConnectionString as string


        'deklarasi laporan
         dim laporan as new namaclasslaporan 'isi dengan laporan yg sudah dibuat misal anda sudah
                                              ' membuat laporanpembelian.rpt, maka isi dgn new laporanpembelian
       
        strsql="select * from pembelian" 'ganti dgn query nya sesuka anda
        'sesuaikan yg berawalan x dgn settingan anda
        ConnectionString=" Data Source=" + xServer + ";Initial Catalog=" + xDatabase +    ";Persist Security Info=True;User ID=" + xID + ";Password="+ xpass +""


        cnn = New SqlConnection(ConnectionString)
        cnn.Open()
        Dim DSCMD As New SqlDataAdapter(strsql, cnn)


        DSCMD.Fill(ds, "isi dgn nama Database")
        cnn.Close()
     
        LAPORAN.SetDataSource(ds.Tables(0))
       'ini buat login database di crystal report
        ObjectRpt.SetDatabaseLogon("user name database anda ","password database anda")
        crystalreportviewer.ReportSource = LAPORAN
        crystalreportviewer.Refresh()

pahami sendiri, ane lagi males nulis,,, klo belum paham silahkan PM,,,ok