พี่ครับจะทำใหตัวเลขมันปรากฎทันทีในช่อง textbox โดยดึงข้อมูลมาจากดาต้าเบส

   Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
        Dim up As String = "select * from rent where codeid='" & TextBox3.Text & "' " 
        Dim ds As DataSet
        ds = clsdb.querydataset(up)
        Dim a As String
        a = ds.Tables(0).Rows(0)("r_date") 'ดึงข้อมูลที่เป็นวันออกมาลบกันวันปัจจุบัน
        Dim b As Integer
        'b = CInt(DateTimePicker2.Value.ToString("d")) - CInt(a)
        b = DateDiff(DateInterval.Day, CDate(DateTimePicker2.Value.ToString("d")), CDate(a))

        TextBox6.Text = (b * TextBox5.Text) - ds.Tables(0).Rows(0)("pledge") 'pledge คือ ค่าเงินมีดจำครับ

    End Sub