Private Sub Command1_Click()
Dim addmore As Variant

Data_clan.Recordset.AddNew

Data_clan.Recordset.Fields("clan_name") = Text1.Text
Data_clan.Recordset.Fields("clan_tag") = Text2.Text
Data_clan.Recordset.Fields("clan_cb_id") = Text3.Text
Data_clan.Recordset.Fields("clan_since") = Text4.Text
Data_clan.Recordset.Update
Data_clan.Refresh

addmore = MsgBox "Clan succesfully added! Add another clan?", vbYesNo, "Succes!"
If (addmore = vbYes) Then
    resetfields
Else
    MsgBox "piemel!"
End If
End Sub

Private Sub resetfields()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Command2_Click()
resetfields
End Sub

Private Sub Command3_Click()
Form1.Show
Unload add_clan
End Sub

Private Sub Form_Terminate()
Unload add_clan
End Sub