.NET (Core and Framework)

public static bool SetCurrentUser(String UserKey, String Password)
 {
     System.Data.SqlServerCe.SqlCeConnection con =
         new System.Data.SqlServerCe.SqlCeConnection();
     con.ConnectionString = DBConnectionstring;
     con.Open();

     DataSet ds1 = new DataSet();

     System.Data.SqlServerCe.SqlCeDataAdapter da =
         new System.Data.SqlServerCe.SqlCeDataAdapter();

     String sQueery = "SELECT * FROM Users WHERE UserKey=" + UserKey +
         "AND Password=" + Password;
     da = new System.Data.SqlClient.SqlDataAdapter(sQueery, con);

     ///////////////////////////////////
     //
     //More to be Written here!
     //
     ///////////////////////////////////



     con.Close();
     return false;

 }

public SqlDataAdapter(
	string selectCommandText,
	SqlConnection selectConnection
)

custom membership provider 

Protected Overrides Sub OnValidating(e As CancelEventArgs)
    'valueisChanged = True
    'EditingControlValueChanged = True
    'Me.EditingControlDataGridView.NotifyCurrentCellDirty(True)
    'MyBase.OnValidating(e)
    If AllowNull = False Then
        If String.IsNullOrEmpty(Me.Text.Trim) = True Then
            e.Cancel = True
            ' show message that cell value can not be null
            MessageBox.Show("لطفاً اطلاعات را وارد نمائید", "ارزیابی اطلاعات", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
        Select Case InputType
            Case Inputs.NationalCode
                If ValidateNcode(Me.Text.Trim) = False Then
                    e.Cancel = True
                    'show message that nationalcode is not in correct format
                    MessageBox.Show("لطفاً کد ملی را بصورت صحیح وارد نمائید", "ارزیابی اطلاعات", MessageBoxButtons.OK, MessageBoxIcon.Error)
                End If
            Case Inputs.Numbers
                If AllowNegative = True Then
                    If ismatched(Me.Text.Trim, negshregex) = False Then
                        e.Cancel = True
                        'show message that integer number length limit to 15 and decimal numbers maximum length is 3 for example 123456789012345.123
                        MessageBox.Show("فرمت اعداد صحیح نمی باشد" & vbNewLine & "حداکثر طول اعداد صحیح 15 رقم" & vbNewLine & "و حداکثر طول اعداد اعشار سه رقم می باشد", "ارزیابی اطلاعات", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End If
                Else
                    If ismatched(Me.Text.Trim, shregex) = False Then
                        e.Cancel = True
                        'show message that integer number length limit to 15 and decimal numbers maximum length is 3 for example 123456789012345.123
                        MessageBox.Show("فرمت اعداد صحیح نمی باشد" & vbNewLine & "حداکثر طول اعداد صحیح 15 رقم" & vbNewLine & "و حداکثر طول اعداد اعشار سه رقم می باشد", "ارزیابی اطلاعات", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End If
                End If
            Case Inputs.Decimals
                If AllowNegative = True Then
                    If ismatched(Me.Text.Trim, negshregex) = False Then
                        e.Cancel = True
                        'show message that integer number length limit to 15 and decimal numbers maximum length is 3 for example 123456789012345.123
                        MessageBox.Show("فرمت اعداد صحیح نمی باشد" & vbNewLine & "حداکثر طول اعداد صحیح 15 رقم" & vbNewLine & "و حداکثر طول اعداد اعشار سه رقم می باشد", "ارزیابی اطلاعات", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End If
                Else
                    If ismatched(Me.Text.Trim, shregex) = False Then
                        'show message that integer number length limit to 15 and decimal numbers maximum length is 3 for example 123456789012345.123
                        e.Cancel = True
                        MessageBox.Show("فرمت اعداد صحیح نمی باشد" & vbNewLine & "حداکثر طول اعداد صحیح 15 رقم" & vbNewLine & "و حداکثر طول اعداد اعشار سه رقم می باشد", "ارزیابی اطلاعات", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    End If
                End If
        End Select
    End If

End Sub