Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strSql As String Dim i As Integer, totDay As Integer, j As Integer Dim dtl As New DataTable totDay = DateDiff(DateInterval.Day, CDate(Me.TextBox1.Text), CDate(Me.TextBox2.Text)) conn.Open() Dim da As SqlDataAdapter = New SqlDataAdapter("SELECT *...