Want to add more than 1 record in datagrid

Public Function FillDataGrid()
        Dim Table1 As DataTable
        Dim Dt As DataSet
        Dim dr As DataRow
        Dim file As New System.IO.StreamReader("Data Source=\Application\sam.sdf")
        Table1 = New DataTable("Medicines")
        Dim SrNo As DataColumn = New DataColumn("Sr.No")
        SrNo.DataType = System.Type.GetType("System.String")
        Table1.Columns.Add(SrNo)
        Dim medname As DataColumn = New DataColumn("Medicine Name")
        medname.DataType = System.Type.GetType("System.String")
        medname.MaxLength = 500
        Table1.Columns.Add(medname)
        Dim dosage As DataColumn = New DataColumn("Dosage")
        dosage.DataType = System.Type.GetType("System.String")
        dosage.MaxLength = 500
        Table1.Columns.Add(dosage)
        Dim freq As DataColumn = New DataColumn("Frequency")
        freq.DataType = System.Type.GetType("System.String")
        freq.MaxLength = 500
        Table1.Columns.Add(freq)
        
        dr = Table1.NewRow()
        dr(0) = txtmed.Text
        dr(1) = Me.txtdosage.Text
        dr(2) = txtfreq.Text
        Table1.Rows.Add(dr)
               
        Dt = New DataSet
        Dt.Tables.Add(Table1)
        DataGrid1.DataSource = Dt.Tables("Medicines")
        txtmed.Text = ""
        txtdosage.Text = ""
        txtfreq.Text = ""
    End Function

    Private Sub Button62_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnadd.Click
        Call FillDataGrid()
    End Sub