StrSQL = "SELECT * FROM Studio WHERE Kode_Studio=" & txtKode.Text & ""
Set rs = Conn.Execute(StrSQL)
If Not rs.EOF Then
harga = rs.Fields("Harga")
If (cmbDurasi.Text <> "") Then
txtharga.Text = harga * Val(cmbDurasi.Text)
End If
Else
txtharga.Text = 0
MsgBox "kode studio Tidak Ada"
txtKode.SetFocus
End If
