Menyimpan Data (VB.Net 2008)

    Sub simpan_data()

        'Dim tgl As String = DTP.Value.ToString("yyyy/MM/dd")

        Dim simpan As String = "INSERT INTO rental (tgl_trans,no_trans,kd_pell,kd_mobil,lama_pinjam,sub_total)VALUES('" & Format(Now.Date, "yyyy-MM-dd") & "','" & txt_no_trans.Text & "','" & cmb_kd_pell.Text & "','" & cmb_kd_mobil.Text & "','" & txt_lama_pinjam.Text & "','" & txt_sub_total.Text & "')"

        Cmd = New OdbcCommand(simpan, Conn)

        Cmd.ExecuteNonQuery()

    End Sub