Private Sub AddDataTable
    User = txtUser.Text
    Password = txtPass.Text
    Address = txtAddress.Text

    'add Row...
    dr(0) = User
    dr(1) = Password
    dr(2) = Address
    'dt.Rows.Add(dr)
    dt.Rows.InsertAt(dr, Pos)
    Pos = Pos + 1
End Sub

Private Sub btGet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btGet.Click
        dgvUser.DataSource = dt
    End Sub

Private Sub btAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btAdd.Click
        AddDataTable()
        txtUser.Clear()
        txtPass.Clear()
        txtAddress.Clear()
    End Sub