Private Sub cmdFinished_Click(Index as Integer)
    MainRecs.AddNew
    MainRecs.Fields("ServerName") = txtServer_Name.text
    MainRecs.Update
    MainRecs.Close
End Sub